var a: array[1..m, 1..n] of integer; i, j, t: integer; p: longint;
begin Randomize; Writeln('Исходный массив'); p := 1; for i := 1 to m do begin for j := 1 to n do begin a[i, j] := Random(19) - 9; Write(a[i, j]:3); if (abs(a[i, j]) < 1) or (abs(a[i, j]) > 5) then p := p * a[i, j] end; Writeln end; Writeln('Произведение элементов с модулем вне [1;5] равно ', p) end.
Тестовое решение: Исходный массив -8 2 7 -3 -8 5 1 -4 -3 6 9 6 Произведение элементов с модулем вне [1;5] равно 145152
2. Подберите подходящий тип данных: a) Количество учеников в классе – integer, word, byte b)Заработанная плата сотрудника фирмы- real, double c) Фамилия сотрудника фирмы – string
3.Запишите арифметические выражения на языке программирования Паскаль: a) ac-b+xyz = a*c-b+x*y*z; в) a*x^2+b*x+c = a*x*x+b*x+c; c) (a-b)x+3/y+z = (a-b)*x+3/(y+z);
4) Напишите инструкцию вывода на экран: а) Вашего имени = write('Ваше имя'); В) Число 400 = write(400); С) Значение выражения x+y = write(x+y);
ответ:драг рейсинг гонки
Объяснение: