Чертёж, рисунок это информационные будущего объекта
Ответы
2) Основное устройство ввода информации (10 букв).-клавиатура
3) "Мозг" компьютера (9 букв).-процессор
4) Устройство вывода информации (7 букв).-монитор
5) Устройство хранения программ и данных (6 букв).-память
6) Устройство для быстрого перемещения по экрану и выбора информации (4 буквы).-мышь
7) Носитель информации, на который записывают программы для хранения (7 букв).-дискета
8) Другое название жёсткого диска (9 букв). -винчестер
9) Устройство, с которого можно вывести на бумагу тексты и рисунки (7 букв).-принтер
ответ: Delphi/Pascal
program Matrix24;
var
a:array [1..10,1..10] of integer;
Max,M, N, i, j:Integer;
begin
Write('N: ');
Readln(N);
Write('M: ');
Readln(M);
for i:=1 to M do
begin
writeln(i,': ');
for j:=1 to N do
begin
Write(j,' : ');
Read(a[i,j]);
end;
end;
for j:=1 to N do
begin
writeln(j,': ');
Max:=a[1,j];
for i:=2 to M do
begin
if a[i,j]>Max then Max:=a[i,j];
end;
writeln('Масимальный элемент:',Max);
end;
end
program Matrix24;
var
a:array [1..10,1..10] of integer;
Max,M, N, i, j:Integer;
begin
Write('N: ');
Readln(N);
Write('M: ');
Readln(M);
for i:=1 to M do
begin
writeln(i,': ');
for j:=1 to N do
begin
Write(j,' : ');
Read(a[i,j]);
end;
end;
for j:=1 to N do
begin
writeln(j,': ');
Max:=a[1,j];
for i:=2 to M do
begin
if a[i,j]>Max then Max:=a[i,j];
end;
writeln('Масимальный элемент:',Max);
end;
end.
Ответить на вопрос
Поделитесь своими знаниями, ответьте на вопрос:
Популярные вопросы в разделе
