Var i, n, m: integer; h: boolean = true; begin writeln('начальное значение х должно быть меньше конечного иначе программа не сработает! '); write('введите начальное значение х > > > '); read(n); write('введите конечное значение х > > > '); read(m); writeln('===================================='); for i : = n to m do if h = true then begin writeln('x=', i, ' y=', 2 * i + 5); h : = false; end else h : = true; end.
cherkashenko87543
05.11.2020
Const n=4; m=5; var a: array[1..n,1..m] of integer; i,j,max,min: integer; begin randomize; writeln('исходный массив: '); for i: =1 to n do begin for j: =1 to m do begin a[i,j]: =random(201)-100; write(a[i,j]: 4); end; writeln; end; max: =a[1,1]; min: =a[1,1]; for i: =1 to n do for j: =1 to m do begin if a[i,j]> max then max: =a[i,j]; if a[i,j]< min then min: =a[i,j]; end; writeln('max = ',max,' min = ',min); writeln('среднее арифметическое = ',(max+min)/2); end. пример: исходный массив: 5 -9 -12 -2 88 -9 -93 -60 8 30 72 50 -56 -39 -29 13 -89 -28 -22 29 max = 88 min = -93 среднее арифметическое = -2.5
Ответить на вопрос
Поделитесь своими знаниями, ответьте на вопрос:
Сколько существует различных логических операций с двумя высказываниями?