Заполнить массив случайным образом и вывести на экран сумму нечетных элементов.В паскале)
Заполнить массив случайным образом и вывести на экран сумму нечетных элементов.В паскале)
Гость
Ответ(ы) на вопрос:
Гостьprogram mass;
uses crt;
const n = 100;
var massiv:array[1..n] of integer;
i,sum:integer;
begin
sum:=0;
for i:=1 to n do begin
massiv[i]:= trunc(Random(100));
if massiv[i] mod 2 <> 0 then
sum:= sum + massiv[i];
end;
writeln('Сумма нечетных элементов = ',sum);
end.
Гостьvar b,c,d:integer;
a:array [1..100] of integer;
begin
randomize;
writeln('введите длину массива');
readln(b);
for c:=1 to b do begin
a[c]:=random(1000);
writeln(a[c]);
if a[c] mod 10 <> 0 then d:=d+a[c];
end;
writeln('сумма нечётных элементов ',d);
end.
Не нашли ответ?
Похожие вопросы