СРОЧНО! 40 БАЛЛОВ! Паскаль, информатика
1) Дан массив из 10-ти случайных чисел. Напечатать его и определить сумму элементов, стоящих на нечетных местах.
2) Дан массив из 10-ти случайных чисел. Напечатать его и определить, есть ли в массиве два соседних четных элемента
1) Дан массив из 10-ти случайных чисел. Напечатать его и определить сумму элементов, стоящих на нечетных местах.
2) Дан массив из 10-ти случайных чисел. Напечатать его и определить, есть ли в массиве два соседних четных элемента
More Questions From This User See All
Answers & Comments
var a:array[1..10] of integer;
i,n:integer;
begin
n:=0;
write ('Массив: ');
for i:=1 to 10 do
begin
a[i]:=random(10);
if i mod 2 <> 0 then n:=n+a[i];
end;
for i:=1 to 10 do
begin
write (a[i],' ');
end;
writeln;
writeln ('Сумма элементов стоящих на нечётных местах = ',n);
end.
2)
var a:array[0..10] of integer;
i,n:integer;
begin
n:=0;
write ('Массив: ');
for i:=1 to 10 do
begin
a[i]:=random(10);
write (a[i],' ');
end;
repeat
i:=1;
if (a[i] mod 2 = 0) and (a[i-1] mod 2 =0) then n:=1;
i:=i+1;
until n=1;
WRITELN;
if n<>0 then writeln ('Есть') else writeln ('Нету');
end.