Определите, какие из следующих предложений являются высказываниями, а какие нет: 1) Математика – царица - id2052184620230218 от mkmoonlightovwm0o 18.02.2023 21:36

Question

Информатика: Определите, какие из следующих предложений являются высказываниями, а какие нет: 1) Математика – царица наук. 2) Ты знаешь теорию вероятностей? 3) Выучи урок, заданный по алгебре. 4) Есть школьники, которые знают математику на «5». 5) Все школьники любят математику. 6) Спортом заниматься полезно. 7) Все спортсмены – очень здоровые люди. 8) Некоторые школьники предпочитают атлетику. 9) Ты играешь в хоккей? 10) Обязательно займись каким-либо видом спорта

mkmoonlightovwm0o · Accepted Answer

Program pr;
uses crt;

Var mas:array[1..1000, 1..1000] of integer;
N,M,i,j,k:integer;

Begin
Writeln('Введите размер матрицы N*M');
Write('N = ');
readln(N);
Write('M = ');
readln(M);

if (M>1000) or (N>1000) or (M<1) or (N<1)
then
Writeln('Ошибка, указанные значения выходят за пределы матрицы')   else
  Begin
Writeln('Введите элементы матрицы');

k:=0;
for i:=1 to N do
  for j:=1 to M do
  Begin
  readln(mas[i,j]);
  if (mas[i,j] mod 2 = 0) then k:=k+1;
  end;

Writeln();
  Writeln('Исходная матрица');

for i:=1 to N do
Begin
for j:=1 to M do
  Begin
Write(mas[i,j], ' ')
   end;
  Writeln();
end;

Writeln();
Writeln('Количество четных элементов = ',k);
end;

readln;
end.

MOGZ ответил