1) В целочисленном массиве М размера 9 определить
10-11 класс
|
сумму элементов и номера положительных
элементов.
2)
задача 1
var
M: array [1..9] of integer;
sum, i: integer;
begin
writeln('Massiv:');
Randomize;
for i:=1 to 9 do
begin
M[i]:=random(200)-100;
write(M[i], ' ');
end;
writeln;
for i:=1 to 9 do
begin
if M[i] > 0 then write(i, ' ');
sum:=sum+M[i];
end;
writeln;
writeln('Summa = ', sum);
readln;
end.
задача 2
var
A: array [1..7] of integer;
sum, i: integer;
begin
writeln('Massiv:');
Randomize;
for i:=1 to 7 do
begin
A[i]:=random(20)-10;
write(A[i], ' ');
end;
writeln;
for i:=1 to 7 do
begin
if A[i] > 3 then sum:=sum+A[i];
if i mod 2 <> 0 then write(A[i], ' ');
end;
writeln;
writeln('Summa = ', sum);
readln;
end.
Другие вопросы из категории
содержит единственное целое число N(1<=N<=1000)
Формат выходных данных
выведите ответ к задаче
Вывести индексы его начала и конца.
диаметр колеса автомобяля хсм колесо требует замены через н оборотов.
Какое расстояние проедет автомобиль до замены колеса?
Читайте также
,который будет содержать противоположные значения элементов первого массива
Имя массива J
Размер 32
Программа должна реализовывать следующие функции:
1.Сумма всех чисел
2.минимальное чётное число
3.кол-во отрицательных нечётных чисел
4.сумма отрицательных нечетных чисел
Алгоритм поиска номера первого из двух последовательных элементов в целочисленном массиве из 30 элементов, сумма которых максимальна (если таких пар несколько, то можно выбрать любую из них). Пишите программу целиком