Var a : array [1..5, 1..5] of integer; i, j : integer; begin randomize; for i : = 1 to 5 do begin for j : = 1 to 5 do begin a[i, j] : = random (1000); write (a[i, j], ' '); end; writeln; end; for i : = 1 to 5 do for j : = 1 to 5 do if i > j then a[i, j] : = 1 else if j > i then a[i, j] : = 0; for i : = 1 to 5 do begin for j : = 1 to 5 do write (a[i, j], ' '); writeln; end; end. var a : array [1..4, 1..5] of integer; i, j, m, c : integer; begin randomize; m : = 1000; for i : = 1 to 4 do begin for j : = 1 to 5 do begin a[i, j] : = random (1000); if a[i, j] < m then m : = a[i, j]; write (a[i, j], ' '); end; writeln; end; c : = 0; for i : = 1 to 4 do for j : = 1 to 5 do if a[i, j] = m then c : = c + 1; writeln (m, ' ', c); end. var a : array [1..4, 1..4] of integer; i, j, p : integer; begin randomize; for i : = 1 to 4 do begin for j : = 1 to 4 do begin a[i, j] : = random (10); write (a[i, j], ' '); end; writeln; end; p : = 1; for i : = 1 to 4 do begin if a[i, i] < > 0 then p : = p * a[i, i]; if a[i, 5 - i] < > 0 then p : = p * a[i, 5 - i]; end; writeln (p); end.
nataliagoncharenko
16.03.2022
Var i,z,y,x: integer; // объявление переменных begin // начало программы writeln('введите числа: '); // вывод сообщения readln(x,y); // ввод чисел х и у с клавиатуры while i < > y do // повторять цикл пока i не будет равно y begin // вход в цикл z: =z+x; // z = z + x (при первом шаге получается 0 = 0 + х) i: =i+1; // увеличиваем счетчик цикла на 1 end; // выход из цикла write(z); // вывод z (произведение х и у) end. // конец программы
Ответить на вопрос
Поделитесь своими знаниями, ответьте на вопрос:
Какое значение будет выведено на экран в результате вополнения фрагмента программы: a: =3; b: =2; s: =m+n; if a> b then d: =b writeln (d)