Предмет: Информатика,
автор: Marta1712
дан массив, содержащий 70 неотрицательных целых чисел, не привышающих 1000. Опишите на одном из языков программирования алгоритм, позволяющий найти и вывести сумму двух соседних элементов массива, имеющих одинаковую чётность. Гарантируется, что в массиве есть соседние элементы, имеющие одинаковую чётность.
Ответы
Автор ответа:
0
program mas;
uses crt;
var A:array [1..70] of integer; i, s: integer;
begin
clrscr;
writeln ('задан массив:');
randomize;
for i:=1 to 70 do
begin
a[i]:=random(1000); {или алгоритм ручного ввода}
write (a[i]:5);
end;
for i:=2 to 70 do
if a[i] mod 2 = a[i-1]mod 2 then
begin
s:=a[i]+a[i+1];
writeln (a[i-1],'+',a[i],'='s);
end;
end.
Похожие вопросы
Предмет: История,
автор: aleksandramihajlova6
Предмет: Психология,
автор: konovalov431200317
Предмет: Қазақ тiлi,
автор: timkatimoshka99
Предмет: География,
автор: Аноним
Предмет: Химия,
автор: katostrofa171