Выполнить в paskal N=12 Ввести число К Определить количество элементов массива, значения которых больше K. ... Все элементы массива увеличить в 3 раза. Массив вывести. ... Определить максимальное значение сред положительных эле...
Выполнить в paskal
N=12 Ввести число К Определить количество элементов массива, значения которых больше K.
...
Все элементы массива увеличить в 3 раза. Массив вывести.
...
Определить максимальное значение сред положительных элементов массива.
Гость
Ответ(ы) на вопрос:
Гостьconst
n = 12;
var
a: array[1..n] of integer;
i, k, p, max: integer;
begin
Randomize;
Write('Введите число К: ');
Readln(k);
Write('Элементы массива: ');
p := 0;
for i := 1 to n do
begin
a[i] := Random(101)-50;
Write(a[i]:5);
if a[i] > k then p := p + 1;
end;
Writeln(#13#10, 'Количество элементов, больших ', k, '=', p);
max := -32768;
for i := 1 to n do
begin
a[i] := 3 * a[i];
if max < a[i] then max := a[i]
end;
if max > 0 then Writeln('Максимальный элемент массива равен ', max)
else Writeln('В массиве нет положительных элементов')
end.
Тестовое решение:
Введите число К: 25
Элементы массива: -10 43 -6 8 -4 39 26 -30 -33 -10 -34 -4
Количество элементов, больших 25=3
Максимальный элемент массива равен 129
Не нашли ответ?
Похожие вопросы