Ввести с клавиатуры массив из 5 элементов , найти среднее арифметическое всех эл...

August 2021 1 25 Report

Ввести с клавиатуры массив из 5 элементов , найти среднее арифметическое всех элементов масива.
ABC Pascal.
Через for,,repead

Answers & Comments

Gleb1Kosyrev

Verified 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

0 votes Thanks 0

Answers & Comments

Verified answer

research...

pomogite 90 ballov opredelit faznoe napryazhenie generatora pri soedinenii ego

pozhalujsta skazhite horoshee li sochinenie u menya poluchilos na temu nedorosl e

sostavit programmu kotoraya schitaet summu pervyh n chetnyh naturalnyh chisel p

sostavte programmu kotoraya vyvodit na ekran iz vseh tryohznachnyh chisel tolko tafc95bec0a58b86da646615cd9eeab83 44612

sostavte programmu kotoraya vyvodit na ekran iz vseh tryohznachnyh chisel tolko t

sostavte programmu kotoraya opredelyaet po nomeru mesyaca kolichestvo dnej v etom m

рекомендуемые вопросы

Helpful Links

Helpful Social