СРОЧНО! 40 БАЛЛОВ! Паскаль, информатика
1) Дан массив из 10-ти случайных чисел. Напечатать его и определить сумму элементов, стоящих на нечетных местах.
2) Дан массив из 10-ти случайных чисел. Напечатать его и определить, есть ли в массиве два соседних четных элемента
Const
n=10;
var
x:array[1..n] of integer;
i,s:integer;
found:boolean;
begin
{ инициализация массива }
Randomize;
Writeln(Элементы массива);
for i:=1 to n do
begin
x[i]:=Random(50);
Write(x[i]:3);
end;
Writeln;
{ задание 1 }
s:=0; i:=1;
while i<=n do
begin s:=s+x[i]; i:=i+2 end;
Writeln(Cумма элементов на нечетных местах равна ,s);
{ задание 2 }
for i:=1 to n-1 do
begin
found:=(x[i] mod 2 = 0) and (x[i+1] mod 2 = 0);
if found then break
end;
if found then Writeln (Пара соседних четных элементов: ,x[i],, ,x[i+1])
else Writeln(Нет пары соседних четных элементов)
end.
Тестовое решение:
Элементы массива
3 11 42 38 36 47 8 15 15 13
Cумма элементов на нечетных местах равна 104
Пара соседних четных элементов: 42, 38
Оцени ответ
Подпишись на наш канал в телеграм. Там мы даём ещё больше полезной информации для школьников!
