сервис вопросов и ответовНаписать программу, суммирующую положительные элементы массива, полученную сумму возвести в квадрат (сделать через Pascal)(пожалуйста срочно надо ни то 2
5-9 класс|
|
поставят)
Vala1234981
25 окт. 2013 г., 14:02:08 (10 лет назад)
GARRI8076POTER56
25 окт. 2013 г., 14:52:25 (10 лет назад)
const n = 10; var a :array [1..n] of integer; i, sum :integer;
begin
for i:= 1 to n do readln(a[i]); sum:= 0; for i:= 1 to n do if a[i] > 0 then sum:= sum + a[i]; sum:= sqr(sum); writeln(sum); end.
Vladocka3
25 окт. 2013 г., 17:33:05 (10 лет назад)
Const N = 10;
Var i,S:integer; m:array [1..N] of integer;
Begin
Writeln('Введите массив');
for i:=1 to 10 do begin
readln(m[i]);
if m[i]>0 then S:=S+m[i]; end;
S:=sqr(S);
writeln('Сумма^2 равна ',S);
readln;
end.
Ответить
Другие вопросы из категории
Текст,набранный на компьютере,содержит 8 страниц,на каждой странице 64 строки,в каждой строке по 50 символов.Определите информационный объем текста,если
используется кодировка ASCII
а)2200 Байт
b)25000 Байт
c)25 Кбайт
d)0.5 Кбайт
РЕШЕНИЕ ПЖЛСТ...
1.Дано предложение. Определить долю (в %) букв «а» в нём
(предложения вводить самому)
2.
Читайте также
1). Дан массив из n элементов (n >= 4). Подсчитать среднюю арифметическую второго и предпоследнего элемента массива.
2). Дан массив из n элементов. Написать программу подсчитывающую произведение элементов массива.
1) Все положительные элементы массива А увеличить на 0.4, нулевые заменить на 0.5, определить сумму отрицательных элементов и произведение
положительных элементов.
2)Найти количество пар взаимообратных соседних чисел в линейной таблице Х[1:N].
3)Упорядочите элементы массива А в порядке убывания.
4)При поступлении в институт абитуриенты набирают определенное количество баллов. Считая фамилии абитуриентов и набранное ими количество баллов исходными данными, составить список будущих студентов, если известно что на выбранный факультет будет зачислено М человек.
1. Массив и 4 целых чисел вводится с клавиатуры. Найти и вывести произведение элементов массива.
2. Массив из 6 отрицательных и положительных целых чисел вводится в области описания констант. Найти сумму положительных элементов массива.
3. Массив из 5 целых чисел вводится с клавиатуры в строку. Найти сумму элементов массива, стоящих на чётных позициях. Вывести исходный массив и полученную сумму.
4. Массив из 40 целых чисел из промежутка [10,90] задается с помощью генератора случайных чисел. Найти сумму элементов массива, кратных n . Вывести исходный массив и полученную сумму.
Помогите кто в чем может.
1) Удвоить все элементы массива. 2)Найти сумму элементов двух массивов одинаковой размерности. 4) Найти Минимальные элементы массива и
его индекс.
5) Найти максимальные элементы среди положительных элементов массива 6) Найти максимальные элементы среди отрицательных элементов массива
7) Определить количество максимальных элементов массива
P.S Ребят, все в паскале...заранее спасибо=*
Вы находитесь на странице вопроса "Написать программу, суммирующую положительные элементы массива, полученную сумму возвести в квадрат (сделать через Pascal)(пожалуйста срочно надо ни то 2", категории "информатика". Данный вопрос относится к разделу "5-9" классов. Здесь вы сможете получить ответ, а также обсудить вопрос с посетителями сайта. Автоматический умный поиск поможет найти похожие вопросы в категории "информатика". Если ваш вопрос отличается или ответы не подходят, вы можете задать новый вопрос, воспользовавшись кнопкой в верхней части сайта.