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

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

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

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

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

A= B=

17.

Блок – схема

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

Program msiv22;

var i,j,kn,km,k,m:integer;s1,sr:real;

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

begin

write('vv zn kn,km,m');

Read(kn,km,m);

s1:=0; k:=0;

for i:=1 to kn do

for j:=1 to km do

begin

writeln('vv. zn a[',i,j,']');

readln(a[i,j]); end;

for i:=1 to kn do

for j:=1 to km do

begin

if j=m then begin s1:=s1+a[i,j];k:=k+1;

end; end; sr:=s1/k;

writeln('voivod zn 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('s1=',s1:6:2,'sr',sr:6:2);

readln;

end.

.

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