Задать массив размерности 25 случайным образом от -10 до 9.поменять местами первый минимальный и последний максимальный элементы массива.вывести первоначальный массив и получившийся массив. решить в паскале
const n = 25; var a: array[1..n] of integer; i, num, num1, min, max: integer; begin min := 10; max := 0; for i := 1 to n do begin a[i] := random(20) - 10; write(a[i], ' '); if(a[i] < min) and (min = 10) then begin min := a[i]; num := i; end; if(a[i] > max) then begin max := a[i]; num1 := i; end; end; a[num] := max; a[num1] := min; writeln; for i := 1 to n do write(a[i], ' '); end.
Вот порядок приготовления пельменей. В посуду смешивают яйцо,вода, мука. чуть соли. .Тесто замешивают до консистенции,чтоб можно было резать ножом. Дальше Некоторые раскатывают большой сочень потом стаканом или другой формой выдавливают лепешечки на посредственно для пельменей туда кладут фарш слепили и готово. Другие раскатывают тесто под вид колбаски ,затем ножом эту колбаску разрезают на равные части,которые раскатывают для фарша. Я знаю три вида формы пельменей.
// PascalABC.NET 3.1, сборка 1230 от 27.04.2016 const КолСтрок=3; КолСтолбцов=5; begin var Массив: array [1..КолСтрок,1..КолСтолбцов] of integer; var СуммыПоСтрокам: array[1..КолСтолбцов] of integer; Writeln('Введите элементы массива (',КолСтрок,',', КолСтолбцов,') построчно:'); for var строка:=1 to КолСтрок do for var столбец:=1 to КолСтолбцов do begin Read(Массив[строка,столбец]); СуммыПоСтрокам[строка]+=Массив[строка,столбец] end; Writeln('Суммы построчно:'); for var строка:=1 to КолСтрок do Print(СуммыПоСтрокам[строка]) end.
const n = 25;
var
a: array[1..n] of integer;
i, num, num1, min, max: integer;
begin
min := 10;
max := 0;
for i := 1 to n do begin
a[i] := random(20) - 10;
write(a[i], ' ');
if(a[i] < min) and (min = 10) then begin
min := a[i];
num := i;
end;
if(a[i] > max) then begin
max := a[i];
num1 := i;
end;
end;
a[num] := max; a[num1] := min;
writeln;
for i := 1 to n do write(a[i], ' ');
end.