Автор: Пользователь скрыл имя, 09 Января 2012 в 07:49, контрольная работа
1 задание Системы счисления
2 задание Логика
3 задание Основные понятия информатики
4 задание Основы алгоритмизации
5 задание Основы программирования
6 задание Структуры данных
7 задание Решение задач с заданным алгоритмом
8 задание Разработка алгоритмов и программ
writeln;
end;
min:=10;
for a:=1 to n do begin
for b:=1 to n do
if ms[a,b]<min then min:=ms[a,b];
reg[a]:=min;
min:=10;
end;
for a:=1 to n do begin
for b:=1 to n do
if ms[b,a]>max then max:=ms[b,a];
reg2[a]:=max;
max:=0;
end;
writeln;
write('Минимумы строк: ');
for a:=1 to n do write(reg[a],' ');
writeln;
write('Максимумы столбцов: ');
for a:=1 to n do write(reg2[a],' ');
readkey;
end
j = 1,n
-
+
Информация о работе Контрольная работа по «Информатика и программирование»