1. Дан двумерный
10-11 класс
|
целочисленный массив.
2. размерность
массива задается пользователем.
3. случайные
числа генерируются из промежутка (-m, m)
var
mas: array [,] of integer;
i,j,m,n,s,max: integer;
f:boolean;
begin
write('Введите размерность массива: ');
readln(n);
write('Введите число m: ');
readln(m);
setlength(mas,n+1,n+1);
for i:=1 to n do
begin;
for j:=1 to n do
begin
mas[i,j]:=random(-m,m);
write(mas[i,j]:6);
if (j>i) and (mas[i,j]=0) then s:=s+1;
end;
writeln;
end;
j:=n;
f:=false;
for i:=1 to n do
begin
if (mas[i,j] mod 2=0) then
begin
if f=false then
begin
max:=mas[i,j];
f:=true;
end;
if (mas[i,j]>max) then max:=mas[i,j];
end;
j:=j-1;
end;
writeln('Число нулей над гл.диагональю: ',s);
writeln('Максимальный четный на доп.диагонали: ',max);
end.
Другие вопросы из категории
текст, имеют формат – 32 строки по 64 символа в строке. Сколько страниц книги можно сохранить на диске объемом 20 Мб, если каждая девятая страница энциклопедии – цветное изображение?
этому предмету у всех студентов различна. Какое может быть максимальное количество студентов в группе?
1) 164.25
2) 520,375
• Перевести данное число в десятичную систему счисления:
1) 1110010100,1011001 (двоичная СС)
2) 1000000110,00101 (двоичная СС)
3) 666,16 (восьмеричная СС)
4) 1C7,68 (шестнадцатеричная СС)
*СС - система счисления.
Читайте также
размерностью n х m,
заполненный случайными числами. Определить, есть ли в данном массиве строка,
содержащая больше положительных элементов,
чем отрицательных. Ответ: «Есть» или «Нет».
Если можно решите попроще, каждая отдельная операции через подпограмму
Дан двумерный массив. Все его элементы разделить на первый элемент и вывести на экран полученный массив.