Предмет:
ИнформатикаАвтор:
анонимvar a: array[1..6] of integer;
i: integer;
sum, razm: real;
begin
writeln(\'Вводим с клавиатуры размеры файлов\');
for i := 1 to 6 do begin
readln(razm);
if (razm > 10) and (razm < 2000) then a[i] := razm else writeln(\'Неправильный размер!\');
end;
writeln(\'Считаем суммарный размер в килобайтах\');
for i := 1 to 10 do razm := razm + a[i];
razm := sum / 1024;
writeln(\'Считаем средний размер файлов\');
for i := 1 to 10 do sum := sum + a[i];
sum := sum / 10;
writeln(\'Суммарный размер равен \', razm);
writeln(\'Средний размер равен \', sum);
end.
Автор:
ruforodgersДобавить свой ответ
Предмет:
АлгебраАвтор:
fff11213141Ответов:
Смотреть