Составить программы и разработать алгоритмы для следующих заданий.

Лабораторная работа 9.

Двумерные массивы.

Составить программы и разработать алгоритмы для следующих заданий.

Исходный массив:

A= B=

а) Задан двумерный массив В. Определите минимальный элемент массива и произведение значений элементов массива. Вывести произведение значений массива и минимальный элемент массива на экран монитора. Вывести исходный массив на экран монитора.

b) Задан двумерный массив А и В. Определите сумму значений элементов четвертых столбцов массивов и их среднее арифметическое. Вывести сумму значений элементов четвертых столбцов массивов и их среднее арифметическое на экран монитора.

program mass21;

var

a: array[1..10,1..10] of real;

i,j,kn,km: integer;p,min:real;

Begin

writeln('vv.zn.kn,km');

Readln(kn,km);p:=1;

for i:=1 to kn do

for j:=1 to km do

begin

write('‚ўҐ¤ЁвҐ §­ 祭ЁҐ н«ҐҐ­в ббЁў a[',I,j,']');

readln(a[i,j]);p:=p*a[i,j];

end;

min:=a[1,1];

for i:=1 to kn do

for j:=1 to km do

begin

if min>a[I,j] then begin min:=a[i,j];

end; end;

writeln('‚лў®¤ н«ҐҐ­в®ў ббЁў a');

for i:=1 to kn do begin

writeln;

for j:=1 to km do begin

Write(a[i,j]:6:2,''); end;end;writeln;

writeln ('Њ ЄбЁ «м­®Ґ §­ 祭ЁҐ min=',min:4:2);

writeln('‚лў®¤ १г«мв в®ў p',p:4:2);

readln;

end.

---

Дата добавления: 2015-11-04