Задать вопрос Регистрация
Помочь другим

  • Заполните матрицу из 8 строк и 5 столбцов случайными числами в интервале [-10;10] вывести её на экран. Найти сумму всех четных элементов

Ответы 1

  • var a:array [1..8,1..5]of integer;

    s,i,k:integer;

    Begin

      randomize;

      for i:= 1 to 8 do begin

         for k:= 1 to 5 do begin

            a[i,k]:= random(20)-10;

            write(a[i,k]:3,' ');

            if a[i,k] mod 2 = 0 then s:=s+a[i,k];

         end;

         writeln;

      end;

      writeln('s=',s);

    End.

        

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

Еще вопросы

Топ пользователей

Войти через Google

 или

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

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

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