Ответ учителя по предмету Информатика
Второе:
program o;
var A:array[1..5] of integer; i:integer;
begin;
for i:=1 to 5 do readln(A[i]);
for i:=5 downto 1 do writeln(A[i])
end.
Третье:
program p;
var A:array[1..15] of integer; i,sum1,sum2,res:integer;
begin;
for i:=1 to 15 do read(A[i]);
for i:=1 to 15 do
if i mod 2=0 then sum1:=sum1+A[i] else sum2:=sum2+A[i];
res:=sum1-sum2;
write(res);
end.
Похожие вопросы от пользователей
Х-256873
234651+Х=852134
Х:28=35687
15*х=12645
Х+156897=689324
756981-х325647
Х*18=51372
21228:х=12
ВСЕ ВЫЧИСЛЕНИЯ ВЫПОЛНИ СТОЛБИКОМ
ПОМОГИТЕ,ПОЖАЛУЙСТА
— с..мейный,ч..ловечество, оз..рять
— м..лчаливый, бл..годушие, зан..маться
— возвр..щение, согр..вать, л..рический
— гл..внейший, преод..ление, д..намичный