Регистрация
bhgd
01.06.2021 02:38
Информатика
Есть ответ 👍

Таблицу сохранить в файле Translate.docx. 3. Найдите лексические значення слов и занесите в следующую Таблицу: Слово Лексическое значение Карапуз Снегурочка Видеокарта Бабочка Спичка Анекдот Гаер

170
341
Посмотреть ответы 1

Ответы на вопрос:

tatanapahomova9
tatanapahomova9
4,6(91 оценок)

// Привет дедам

const M = 5;

const N = 12;

var matrix: array [1..M, 1..n] of integer;

var i, j, count: integer;

begin

   for i := 1 to M do

   begin

       for j := 1 to N do

       begin

           matrix[i, j] := random(-98, 54);

           write(matrix[i, j]:4);

       end;

       writeln();

   end;

   

   writeln();

   writeln('Кол-во четных элементов: ');

   for j := 1 to N do

   begin

       count := 0;

       for i := 1 to M do

       begin

           if matrix[i, j] mod 2 = 0 then

               inc(count);

       end;

       write(count:4);

   end;

end.

Популярно: Информатика