#1:
const count = 3; // количество проверяемых чисел
var m : array [1..count] of integer; i, e, c: integer; begin
writeln('введите числа: '); for i : = 1 to count do begin write(i ,': '); readln( m[i] ); end; for i : = 1 to count do for e : = 1 to count do if m[i] < m[e] then begin c : = m[i]; m[i] : = m[e]; m[e] : = c; end; for i : = 1 to count do write(m[i], ' '); readln; end.
#2:
var a, b, c, x, y: integer; begin
writeln('введите рёбра кирпича: '); write('a: '); readln( a ); write('b: '); readln( b ); write('c: '); readln( c ); writeln('введите стороны отверстия: '); write('x: '); readln( x ); write('y: '); readln( y );
x : = x*y; if (a*b < = x) or (a*c < = x) or (b*c < = x) then write('пройдёт.') else write('не пройдёт.'); readln; end.
Поделитесь своими знаниями, ответьте на вопрос:
Дан двумерный массив размером 5*6, заполненный целыми числами с клавиатуры. сформировать одномерный массив, каждый элемент которого равен произведению четных положительных элементов соответствующего столбца. дан двумерный массив размером 4*4, заполненный вещественными числами с клавиатуры. сформировать одномерный массив, каждый элемент которого равен количеству отрицательных элементов соответствующей строки. дан двумерный массив размером 6*3, заполненный целыми числами с клавиатуры. сформировать одномерный массив, каждый элемент которого равен наибольшему по модулю элементу соответствующего столбца. дан двумерный массив размером 5*6, заполненный случайными числами в диапазоне [-10; 10]. сформировать одномерный массив, каждый элемент которого равен первому четному элементу соответствующего столбца, если такого не, то равен нулю. решите любую из 4-х ,