Во дворе гуляли четыре подружки, которые очень любили кататься на велосипедах. Все знали, что девочки - id2096895920200405 от progames2002 05.04.2020 04:41

Question

Информатика: Во дворе гуляли четыре подружки, которые очень любили кататься на велосипедах. Все знали, что девочки могут кататься 20, 50, 70, 100 минут. Нина могла кататься не более 20 минут. Оксана каталась меньше Дарьи, а Марина каталась 100 минут. Сопоставьте имена девочек и время.

progames2002 · Accepted Answer

//Pascal ABC.NET v3.1 сборка 1172

//For

Var
ar:array[1..5] of integer;
i:integer;
r:real;
begin
for i:=1 to 5 do
begin
   readln(ar[i]);
   r:=r+ar[i];
end;
r:=r/i;
writeln(r);
end.

//while

Var
ar:array[1..5] of integer;
i:integer;
r:real;
begin
while i<>5 do
begin
   i:=i+1;
   readln(ar[i]);
   r:=r+ar[i];
end;
r:=r/i;
writeln(r);
end.

//repeat

Var
ar:array[1..5] of integer;
i:integer;
r:real;
begin
repeat
   i:=i+1;
   readln(ar[i]);
   r:=r+ar[i];
until i=5;
r:=r/i;
writeln(r);
end.

Пример ввода:
1
2
1
2
1
Пример вывода:
1.4

MOGZ ответил