1. Ввести двухмерный массив поэлементно с клавиатуры или получить его, используя генератор случайных чисел. Двухмерный массив может быть целочисленного или вещественного типа. Количество элементов в двухмерном массиве должна быть не менее десяти.
2. Вывести на экран монитора исходный двухмерный массив в виде таблицы чисел.
3. Выполнить необходимые преобразования над исходным двухмерным массивом, а также выполнить необходимые вычисления.
4. Вывести на экран монитора преобразованный двухмерный массив в виде таблицы чисел, а также вывести результаты вычислений.
ЗАДАНИЕ
В двухмерном массиве вычислить произведение отрицательных элементов всех нечетных столбцов.
Pascalabc.net 3.4.0, сборка 1675 от 12.06.2018 внимание! если программа не работает, обновите версию! procedure println(self: array of real); extensionmethod; begin self.batch(5).foreach(s-> begin foreach var p in s do write(p: 15: 10); writeln end); writeln(min(15*(self.count div 2),38)*'- ') end; begin var m: =arrgen(readinteger('n='),i-> cos(i),1); m.println; var (a,b): =readreal2('введите границы a b: '); writeln('число элементов на интервале [',a,',',b,'] равно ', m.where(t-> t.between(a,); write('сумма элементов, расположенных после максимального, равна '); var imax: =m.indexmax; (m? [imax+1: ].sum).println; writeln('элементы, по убыванию модулей'); m: =m.orderbydescending(t-> abs(; m.println; end.
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
Uses CRT;
Const n=5;
var a:array[1..n,1..n] of integer;
i,j,p:integer;
begin
ClrScr;
for i:=1 to n do
for j:=1 to n do
begin
a[i,j]:=Random(15)-5;
gotoxy(j*5+5,i);
write(a[i,j]);
end;
p:=1;
writeln('');
for i:=1 to n do
for j:=1 to n do
if (a[i,j]<0) and odd(j) then
p:=p*a[i,j];
writeln('Ïðîèçâåäåíèå=',p);
end.
Объяснение:
ПОРЯДОК ВЫПОЛНЕНИЯ РАБОТЫ
1. Ввести двухмерный массив поэлементно с клавиатуры или получить его, используя генератор случайных чисел. Двухмерный массив может быть целочисленного или вещественного типа. Количество элементов в двухмерном массиве должна быть не менее десяти.
2. Вывести на экран монитора исходный двухмерный массив в виде таблицы чисел.
3. Выполнить необходимые преобразования над исходным двухмерным массивом, а также выполнить необходимые вычисления.
4. Вывести на экран монитора преобразованный двухмерный массив в виде таблицы чисел, а также вывести результаты вычислений.
ЗАДАНИЕ
В двухмерном массиве вычислить произведение отрицательных элементов всех нечетных столбцов.