создать программу нахождения количества всех положительных элементов массива
5-9 класс
|
writeln('Введите количество элементов в массиве');
readln(n);
for i:=1 to n do
begin
writeln('Введите элемент массива');
readln (A[i]);
end;
Sum:=0;
for i:=1 to n do
if a[i]>0 then
Sum:=Sum+a[i];
Writeln('Сумма положительных элементов = ' Sum)
Другие вопросы из категории
программу определяющую равны ли площади этих земельных участков.если участки имеют разные площади то определите у какого фермераучасток больше.PascalABC
из 60 цифр.
Требуется написать программу, которая выполняет желание Пети и находит остаток от
деления введенного числа на 7
от 1 до 100, можно задавать вопросы, на которые вы получаете ответ
"да" или "нет". Какое максимальное число вопросов
достаточно задать, чтобы наверняка отгадать задуманное число?
100,7,8 или 16
помогите очень надо
Читайте также
буду благодарна.
положительных элементов.
2)Найти количество пар взаимообратных соседних чисел в линейной таблице Х[1:N].
3)Упорядочите элементы массива А в порядке убывания.
4)При поступлении в институт абитуриенты набирают определенное количество баллов. Считая фамилии абитуриентов и набранное ими количество баллов исходными данными, составить список будущих студентов, если известно что на выбранный факультет будет зачислено М человек.
его индекс.
5) Найти максимальные элементы среди положительных элементов массива 6) Найти максимальные элементы среди отрицательных элементов массива
7) Определить количество максимальных элементов массива
P.S Ребят, все в паскале...заранее спасибо=*
числа k и n вводятся с клавиатуры). Нулевые элементы оставить без изменения.
найдите полупроизведение всех положительных элементов массива