|
Лабораторная работа 9.
Двумерные массивы.
Составить программы и разработать алгоритмы для следующих заданий.
Исходный массив:
A= B=
17.
|
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; просмотров: 16 | Нарушение авторских прав
<== предыдущая лекция | | | следующая лекция ==> |
1. What is this extract about? Is it easy to retell it? Why? | | | Мартин Хайдеггер (Martin Heidegger) (1889–1976), немецкий философ-экзистенциалист, оказал значительное влияние на европейскую философию 20 в. Будучи студентом и ассистентом Э.Гуссерля, внес |