сервис вопросов и ответовНаписать программу, суммирующую положительные элементы массива, полученную сумму возвести в квадрат (сделать через Pascal)
5-9 класс|
|
Лёшка2004
20 февр. 2014 г., 10:54:55 (10 лет назад)
Marucya1
20 февр. 2014 г., 13:28:05 (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]; writeln(sum); end.
Magasaidov97
20 февр. 2014 г., 15:27:29 (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(S);
readln;
end.
Ответить
Другие вопросы из категории
Сгупировать слова например: ромшка , колокольчик , одуванчик- это цветы! Также 1. Солнце, воздух,ветер,почва. 2.Автомобиль , самолёт,
стул, стол.
3.человек, звери, рыбы , птицы ,насекомые,растения.
4. Весна, река, рука , яблоня.
5. приставка , корень, окончание,суффикс
6.
Читайте также
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)", категории "информатика". Данный вопрос относится к разделу "5-9" классов. Здесь вы сможете получить ответ, а также обсудить вопрос с посетителями сайта. Автоматический умный поиск поможет найти похожие вопросы в категории "информатика". Если ваш вопрос отличается или ответы не подходят, вы можете задать новый вопрос, воспользовавшись кнопкой в верхней части сайта.