Ответы
Ответ дал:
0
var
a:array[1..100000] of integer;
n, i,sum:integer;
begin
Write('Введите количество элементов массива -> ');
readln(n);
Write('Введите массив -> ');
For i:= 1 to n do
begin
Read(a[i]);
if a[i] mod 2 = 1 then sum := sum + a[i];
end;
Writeln(sum);
end.
Пример:
Введите количество элементов массива -> 5
Введите массив -> 1 2 3 4 5
9
a:array[1..100000] of integer;
n, i,sum:integer;
begin
Write('Введите количество элементов массива -> ');
readln(n);
Write('Введите массив -> ');
For i:= 1 to n do
begin
Read(a[i]);
if a[i] mod 2 = 1 then sum := sum + a[i];
end;
Writeln(sum);
end.
Пример:
Введите количество элементов массива -> 5
Введите массив -> 1 2 3 4 5
9
Вас заинтересует
1 год назад
2 года назад
2 года назад
8 лет назад
8 лет назад
8 лет назад