Предмет: Информатика,
автор: arina572001
Составьте программу, которая заполняет массив а [1..10] случайными целыми числами в диапазоне от 1 до 100, затем меняет местами максимальный и минимальный элемнет. Выведите на экран исходный и полученный массив. Язык Pascal
program prim;
var a: array [1..10] of integer;
i, z, max, min: integer;
begin
for i:=1 to 10 do
a[i]:=Random(101);
writeln (' исходный массив:');
for i:=1 to 10 do
write (a[i], ' ');
writeln;
max:= a[1];
for i:=2 to 10 do
if a[i]>max then
begin
max:= a[i];
end;
writeln ('максимальный элемент=', max);
min:= a[1];
for i:=2 to 10 do
if a[i]
begin
min:= a[i];
end;
writeln ('минимальный элемент=', min);
writeln;
z:=a[min];
a[min]:=a[max];
a[max]:=z;
writeln (' полученный массив');
for i:=1 to 10 do
write (a[i], ' ');
writeln;
end.
Ответы
Автор ответа:
0
Три ошибки, одна грубая.
Сравни своё решение и моё. (для Pascal ABC Net)
program prim; var a: array [1..10] of integer; i, z, max, min,nommax,nommin: integer; begin for i:=1 to 10 do a[i]:=Random(101); writeln (' исходный массив:'); for i:=1 to 10 do write (a[i], ' '); writeln; max:= a[1]; for i:=2 to 10 do if a[i]>max then begin max:= a[i];nommax:=i; end; writeln ('максимальный элемент=', max); min:= a[1]; for i:=2 to 10 do if a[i]<min then begin min:= a[i];nommin:=i; end; writeln ('минимальный элемент=', min); z:=a[nommin]; a[nommin]:=a[nommax]; a[nommax]:=z; writeln (' полученный массив'); for i:=1 to 10 do write (a[i], ' '); writeln; end.
Сравни своё решение и моё. (для Pascal ABC Net)
program prim; var a: array [1..10] of integer; i, z, max, min,nommax,nommin: integer; begin for i:=1 to 10 do a[i]:=Random(101); writeln (' исходный массив:'); for i:=1 to 10 do write (a[i], ' '); writeln; max:= a[1]; for i:=2 to 10 do if a[i]>max then begin max:= a[i];nommax:=i; end; writeln ('максимальный элемент=', max); min:= a[1]; for i:=2 to 10 do if a[i]<min then begin min:= a[i];nommin:=i; end; writeln ('минимальный элемент=', min); z:=a[nommin]; a[nommin]:=a[nommax]; a[nommax]:=z; writeln (' полученный массив'); for i:=1 to 10 do write (a[i], ' '); writeln; end.
Похожие вопросы
Предмет: Алгебра,
автор: Аноним
Предмет: Математика,
автор: sedyhh959
Предмет: История,
автор: nurmuhammaddjamaldin
Предмет: Математика,
автор: azanasazazzzzz
Предмет: Физика,
автор: klyuev02