Переведите из Паскаля в кумир
Program kar;
const N=10;
var a:array[1..N] of integer;
b,c,d:integer;
begin
randomize;
d:=0;
c:=0;
for b:=1 to N do
a[b]:=random(100);
for b:=1 to N do
if(a[b]<50)then
begin
c:=c+1;
d:=d+a[b];
end;
writeln(d/c);
d:=0;
c:=0;
for b:=1 to N do
a[b]:=random(100);
for b:=1 to N do
if(a[b]>=50)then
begin
c:=c+1;
d:=d+a[b];
end;
write(d/c);
end.
246
494
Ответы на вопрос:
// pascalabc.net 3.2, сборка 1417 от 28.03.2017 // внимание! если программа не работает, обновите версию! begin writeln(range(100,500).sum); writeln(range(8,15).aggregate(1,(m,n)-> m*n)); writeln(range(1,1000).average) end. результат 120300 259459200 500.5
Популярно: Информатика
-
malygin73rus01.04.2021 00:40
-
Katyha02827281911.06.2020 12:23
-
tanshka09.06.2022 01:47
-
angelina051220018.07.2021 18:55
-
aidakairatova0205.02.2021 14:46
-
лох24914.02.2023 13:06
-
dnabib18.04.2020 03:56
-
sasha2000val29.04.2021 10:03
-
19791207the18.03.2022 09:32
-
evegn133117.08.2021 19:24