Контрольная работа по «Информатика и программирование»
Контрольная работа, 09 Января 2012, автор: пользователь скрыл имя
Описание работы
1 задание Системы счисления
2 задание Логика
3 задание Основные понятия информатики
4 задание Основы алгоритмизации
5 задание Основы программирования
6 задание Структуры данных
7 задание Решение задач с заданным алгоритмом
8 задание Разработка алгоритмов и программ
Работа содержит 1 файл
Информатика.doc
— 491.00 Кб (Скачать)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
-
+