с домашним заданием а то у меня долги по информатике не успеваю

Question

Информатика: с домашним заданием а то у меня долги по информатике не успеваю

artem213131 · Accepted Answer

Задача 1 var   a:array [1..100] of integer;   i,n:integer; begin   writeln( Введите n =100 );   readln(n);   writeln( Введите массив );   for i:=1 to n do   readln(a[i]);   writeln( Массив );   for i:=1 to n do   write(a[i], );   writeln;   writeln( Элементы равные сумме двух соседей: );   for i:=2 to (n-1) do   if a[i]=(a[i-1]+a[i+1]) then write(a[i], );   writeln;    end. задача 5 var   a:array [1..10000] of integer;   i,n, mx1, mx2:integer; begin   writeln( Введите n =10000 );   readln(n);  ...

MOGZ ответил