Информации
компьютере/роботе
алфавит
D) (10000*a)-(3+1/5)*b
e) (1+x/2+y/6)/(1+2/(3+x*y))
Касаються : Закрити Обрати Розгорнути Перейти Клацнути Переглянути Збільшити Зменшити Ввести Двічі Клацнути Натиснути Встановити Опрацювати і передати
const nx=20;
var r:array[1..nx] of integer;
var j:real; n,i,sum,k:integer;
begin
randomize;
write('Введите n');
readln(n);
for i:= 1 to n do begin
r[i]:= random(15);
if ((i mod 4 = 0) and (r[i] < 5 )) then begin
sum:= r[i]+sum;
k:=k+1;
end;
write(r[i]:4);
end;
writeln;
writeln('sum =',sum:3,' k =',k);
end.