Регистрация
1234554321я
05.08.2021 08:48
Информатика
Есть ответ 👍

Передача данных в интернет урок 3
​

281
426
Посмотреть ответы 1

Ответы на вопрос:

erka112
erka112
4,7(41 оценок)

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.

           

Популярно: Информатика