Решите у меня ср, даю 40 б

ответ: в 1 5 во 2 20 в 3 142

Объяснение:

var

  a: array[1..5]of integer;

  i: integer;

begin

  for i: =1 to 5 do read(a[i]);

for i: =1 to 5 do write(a[i],' ');

writeln;

for i: =1 to 5 do if a[i]> =1024 then writeln(a[i] div 1024);

writeln;

end.

на паскале

vara,b: array [0..15] of real;

i: integer; begin

for i: =0 to 15 doa[i]: =i*2;

for i: =0 to 15 do beginb[i]: =1.8*a[i]+32; writeln(a[i],' градуса(ов)','=',b[i],' по фаренгейту'); end;

end.

вот еще через while 

vara,b: array [0..15] of real;

i: integer; begin

for i: =0 to 15 doa[i]: =i*2;

i: =0; while i< =15 do beginb[i]: =1.8*a[i]+32; i: =i+1; end; for i: =0 to 15 dowriteln(a[i],' градуса(ов)','=',b[i],'по фаренгейту'); end.