Заполнить массив 20 случайными числами (использовать генератор случайных чисел найти в массиве максимальный элемент и вывести на экран его значение и порядковый номер в массиве.

const m = 20;

var arr: array[1..m] of integer; i, j, k,r: integer;

begin

for i : = 1 to m do begin arr[i] : = random(256); end; for i : = 1 to m-1 do for j : = 1 to m-i do if arr[j] > arr[j+1] then begin k : = arr[j]; arr[j] : = arr[j+1]; arr[j+1] : = k end; write (arr[20]); readlnend.

#include < iostream> using namespace std; int main() { int a, b, c; cout < < "введите 3 целых числа: \n"; cin > > a > > b > > c;     cout < < a < < "+" < < b < < "+" < < c < < "=" < < a+b+c < < "\n"; cout < < a < < "*" < < b < < "*" < < c < < "=" < < a*b*c < < "\n"; cout < < "("< < a< < "+"< < b< < "+"< < c< < ")/3="< < (a+b+c)/3.0< < "\n"; return 0; } пример: введите 3 целых числа: 5 7 85+7+8=20 5*7*8=280 (5+7+8)/3=6.66667

Точная по техническому : var x,y: integer; begin writeln('введите два числа'); readln(x); readln(y); if (x< 1000000001) and (y< 1000000001) and (x> 0) and (y> 0) then writeln('сумма чисел =',x+y) else writeln('диапазон чисел неверный'); end. если вдруг вам поверит учитель, можете перевыполнить поставленную : var x,y: integer;               s: string; begin randomize; writeln('взять ли числа случайными? ответ да или нет'); readln(s); if (s='да') or (s='да') or (s='да') or (s='да')  then begin x: =random(1000000000); y: =random(1000000000); writeln('сумма чисел =',x+y); writeln('произведение чисел =',x*y);   end else  begin writeln('введите два числа'); readln(x); readln(y); writeln('сумма чисел =',x+y); writeln('произведение чисел =',x*y); end; end.