Объясните, пожалуйста, паскаль! Откуда взялось Sr:8:2????
var
a:array[1..8] of integer; k,i,s:integer; sr:real;
begin s:=0;
for i:=1 to 8 do
readln(a[i]);
for i:=1 to 8 do
if (a[i]>=100) and (a[i]<=999) then
begin
s:=s+a[i];
k:=k+1;
end;
if k=0 then
begin
writeln('В массиве нет трехзначных чисел.');
end;
sr:=s/k;
writeln('Среднее среди трехзначных чисел: ',sr:8:2);
end.
Please enter comments
Please enter your name.
Please enter the correct email address.
You must agree before submitting.

Answers & Comments


Copyright © 2024 SCHOLAR.TIPS - All rights reserved.