Контрольная работа по теме "Информатика"
Лабораторная работа, 25 Февраля 2013, автор: пользователь скрыл имя
Описание
Работа содержит ответы на вопросы для экзамена (или зачета) по дисциплине "Информатика"
Работа состоит из 1 файл
_Лабораторная работа.doc
— 451.50 Кб (Скачать документ)For i:=1 to N do
begin
Writeln('Вводим ',i,'-ю строку:');
For j:=1 to M do
begin
Write('Вводите очередной ',j,' -й элемент: ');
ReadLn(B[i,j]);
end;
end;
Writeln('Ввод окончен.');
Writeln('Введен массив:');
Print(B);
For i:=1 to N do
begin
C[i]:=0;
For j:=1 to M do
begin
C[i]:=C[i]+B[i,j]
end;
C[i]:=C[i]/M;
end;
Writeln('Печатаем массив С:');
For i:=1 to N do Write(C[i], ' ');
Writeln;
If C[1]>0 Then begin Minel(B,min); Writeln ('Min =', Min) end
Else begin Maxel(B,max); Writeln ('Max =', Max) end;
End.