Как перевести из паскаля в кумир?

@yteii · Регистрация: 13.10.2016

Author24 — интернет-сервис помощи студентам

Pascal

const
     n=5;
type
    mas=array [1..n] of integer;
var
   a:mas;
   i: integer;
   k:real;
begin
randomize;
for i:=1 to n do
    begin
    a[i]:=random(51);
    write(a[i]:4)
    end;
    writeln;
k:=(a[1]+a[2]+a[3]+a[4]+a[5])/5;
writeln('среднее арифметическое:',k);
readln
end.

@Puporev · 17.10.2016, 13:45

Код

алг

нач
цел таб A[1:5]
цел n=5
цел i
вещ k
k:=0; 
нц для i от 1 до n 
A[i]:=irand(0,51)
k:=k+A[i]
вывод A[i]," "
кц
вывод нс 
k:=k/n;
вывод k
кон

@Puporev Почетный модератор 64303 / 47600 / 32742 Регистрация: 18.05.2008 Сообщений: 115,181
	17.10.2016, 13:45	2
	Код алг нач цел таб A[1:5] цел n=5 цел i вещ k k:=0; нц для i от 1 до n A[i]:=irand(0,51) k:=k+A[i] вывод A[i]," " кц вывод нс k:=k/n; вывод k кон 0