Код вот такой, блок-схему сможешь написать по комментам
var a: array [1..100] of integer; n, i, max, min: integer; ans: real; begin writeln('Введите кол-во эллементов массива (от 1 до 100)'); readln(n); // cчитывается кол-во элементов read(a[1]); // cчитывается первый элемент массива max := a[1]; //a[1] принимается за максимальный элемент min := a[1]; //a[1] принимается за минимальный элемент for i := 2 to n do begin // цикл от 2 до n read(a[i]); // cчитывается i-тый элемент массива if (max < a[i]) then // если max меньше нового эллемента обновить max max := a[i] else if (min > a[i]) then // если min больше нового эллемента обновить min min := a[i]; end; ans := max / min; //присвоить переменной ans ответ на задачу writeln(ans); // вывести ответ end.
Традиционное решение: var n,d1,d2,d3,d4:integer; begin Write('Введите четырехзначное натуральное число: '); Readln(n); d1:=n div 1000; d4:=n mod 10; d3:=(n mod 100) div 10; d2:=(n mod 1000) div 100; n:=1000*d1+100*d3+10*d2+d4; Writeln('Результат: ',n) end.
Решение с использованием символьного представления числа: var s:string; begin Write('Введите четырехзначное натуральное число: '); Readln(s); Writeln('Результат: ',s[1]+s[3]+s[2]+s[4]) end.
program Program1; var i, j, n, k: integer; var result: real; var array1: array [1..255] of real; begin result := 0; write('Введите значение N (не более 255): '); readln(n); for i := 1 to n do begin write('Введите значение ', i, ' элемента массива: '); readln(array1[i]); end; begin writeln('Массив, размером - ', n, ' элементов(а):'); for i := 1 to n do write(array1[i], ' '); writeln; end; for i:=1 to n do begin k := 0; for j:=1 to n do if array1[i] = array1[j] then k := k + 1; if k = 1 then result := result + array1[i]; end; writeln('Сумма уникальных элементов массива = ', result); end.
var a: array [1..100] of integer; n, i, max, min: integer; ans: real;
begin writeln('Введите кол-во эллементов массива (от 1 до 100)'); readln(n); // cчитывается кол-во элементов read(a[1]); // cчитывается первый элемент массива
max := a[1]; //a[1] принимается за максимальный элемент min := a[1]; //a[1] принимается за минимальный элемент
for i := 2 to n do begin // цикл от 2 до n read(a[i]); // cчитывается i-тый элемент массива if (max < a[i]) then // если max меньше нового эллемента обновить max max := a[i] else if (min > a[i]) then // если min больше нового эллемента обновить min min := a[i]; end;
ans := max / min; //присвоить переменной ans ответ на задачу
writeln(ans); // вывести ответ
end.