Информация о количестве жильцов в каждой из четырех квартир каждого этажа 12-этажного дома хранится в двумерном массиве (в первой строке - информация о квартирах первого этажа, во второй - второго и т. д.) . в каждой квартире проживает одна семья. найти численность самой большой семьи в квартирах 3-го и 4-го этажей. (pascal)

Var   a : array [1..12, 1..4] of integer;   i, j, max : integer; begin   for i : = 1 to 12 do     for j : = 1 to 4 do       read (a[i, j]);   max : = a[3, 1];   for i : = 3 to 4 do     for j : = 1 to 4 do         if a[i, j] > max then max : = a[i, j];   write (max); end.

Відповідь:

uses crt;  {модуль CRT, для красоты}

var x,y:integer;  {описание переменных}

begin

write('Введи трехзначное число:'); {вывод текста на экран}

readln(x); {Чтение данных}

write('Введи любую цифру:'); {Вывод текста на экран}

readln(y);  { Чтение данных }

if (x<100) or (x>999) or (y<0) or (y>9)  {проверка условий}   

then writeln('ERROR!')  {Вывод текста, если условие соблюдено}

else  {Вариант, если в начале все числа введено верно}

   if (y=x div 100) or (y=x mod 10) or (y=x mod 100 div 10) then

      writeln ('Цифра присутствует') {Вывод текста, если условие соблюдено}

   else writeln ('Такой цифры нет');  { Вывод текста, если условие не соблюдено }

Пояснення:

var

  a, b, c: real; {c - буферная переменная, в которой будет хранится значение переменной а}

 

begin 

  writeln('введите 2 числа');

  readln(a, b);   //вводим значения переменных а и b

  writeln(a, '   ', b);   //печатаем значения переменных а и b

  c: = a;   //присваиваем переменной с значение переменной а

  a: = b; //присваиваем переменной а значение переменной b 

  b: = c;   //присваиваем переменной b значение переменной c

  writeln(a, '   ', b);   //печатаем измененные значения

end.