Информатика. Написать БЛОК-СХЕМУ и программу (паскаль)
Даю 50б

var a: array [1..5] of integer; s,i: integer; begin      for i : = 1 to 5 do  begin      writeln('a[',i,']=');       read(a[i]);         s: =s + a[i]  end;   writeln('s=',s); end.

10000 байт = 10000 : 2^10 кб = 9,8 кб

10000 байт = 10000 : 2^20 мб = 0, 009 мб

600000 байт = 600000 : 2^10 = 586 кб

1) присвоения : =2)343,5  3) 1a=2 b=5var a,x,x1,x2,x3: integer; begin      read(a);       writeln('4. s=',4*a);             read(x);       x3: =x mod 10;       x1: =x div 10;       writeln('5. x=',x3*100+x1); end.

страус! он бегает со скоростью 80 км/ч