• Составьте программу которая осуществляет ввод массив с клавы размеров 6 файлов в бaйтах от 10 до 2000и вычисляет: 1.

Ответы 1

  • 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.

  • Добавить свой ответ

Еще вопросы

Войти через Google

или

Забыли пароль?

У меня нет аккаунта, я хочу Зарегистрироваться

How much to ban the user?
1 hour 1 day 100 years