Составьте программу, которая заполняет массив а [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.

233

366

Посмотреть ответы 2

Ответы на вопрос:

Kirillpakharenko

Информатика

4,8(54 оценок)

Три ошибки, одна грубая. сравни своё решение и моё. (для 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.

mmmmm269

Информатика

4,7(19 оценок)

Abc паскаль var sum: longint; begin sum: =0; // основной цикл for var i: =3 to 19 do begin sum: =sum+5*i; writeln (i*5); end; writeln('сумма всех двузначных чисел кратных 5 = ',sum); end.