Регистрация
Викторина22
15.12.2021 15:32
Информатика
Есть ответ 👍

Вдвухмерном массиве а(7,7) случайных чисел из диапазона (-10..10) найти: 1. минимальный элемент в 7 столбце 2. сумму элементов 1 строки 3. среднее значение 5 столбца 4. количество нечетных элементов массива 5. заменить элементы 1 столбца на единицы.

178
272
Посмотреть ответы 2

Ответы на вопрос:

елена1210
елена1210
4,8(53 оценок)
Program q;       var a: array[1..7,1..7] of integer; min7,sum1,odd,i,k: integer; avg5: real; begin;       randomize;       for i: =1 to 7 do begin;             for k: =1 to 7 do begin;                   a[i,k]: =random(-10,10);                   if a[i,k] mod 2 = 1 then odd+=1;             end;       end;       min7: =a[1,7];       for i: =1 to 7 do if a[7,i]< min7 then min7: =a[i,7];       for i: =1 to 7 do sum1+=a[i,1];       for i: =1 to 7 do avg5+=a[5,i];       avg5/=7;       for i: =1 to 7 do a[1,i]: =1;       write('минимальный элемент в 7 столбце ', min7, ', сумма элементов первой строки ', sum1, ', кол-во нечётных чисел ', odd); end.
Onoo
Onoo
4,5(82 оценок)

const max=30;

var c: array[1..max,1..max] of integer;

m,n,i,j,p,k,s: integer;

begin

randomize;

repeat

write('количество строк от 2 до ',max,' m=');

readln(m);

until m in [2..max];

repeat

write('количество столбцов от 2 до ',max,' n=');

readln(n);

until n in [2..max];

writeln('исходная матрица');

for i: =1 to m do

begin

for j: =1 to n do

begin

c[i,j]: =-10+random(21);

write(c[i,j]: 4);

end;

writeln;

end;

write('p=');

readln(p);

k: =0;

for i: =1 to m do

begin

s: =0;

for j: =1 to n do

if c[i,j]> 0 then s: =s+c[i,j];

if s> p then k: =k+1;

end;

write('количество строк по условию=',k)

end.

Популярно: Информатика