Const N = 12; const k = 0; var temp : array [1..N] of integer; i, min, max, count : integer; begin min := 1000; max := -1000; count := 0; {Заполнение массива данными} for i := 1 to N do begin write(i,'-й месяц: '); readln(temp[i]); if (temp[i] > max) then max := temp[i]; if (temp[i] < min) then min := temp[i]; {Если температура выше k - месяц считается теплым} if (temp[i] > k) then count := count + 1; end; writeln('Минимальная температура: ',min); writeln('Максимальная температура: ',max); writeln('Количество теплых месяцев: ',count); readln; end.
santechma
19.01.2023
Const nn = 50;{максимальное число элементов}
var a: array[1..nn] of integer; m, n, max, min, i, kn, kz, kp, kt, nmax, nmin, t: integer;
begin Write('Задайте количество элементов в массиве (1-50): '); Readln(n); Write('Введите значение для поиска: '); Readln(t); Writeln('Введите элементы массива'); max := -32768; min := 32767; kn := 0; kz := 0; kp := 0; kt := 0; for i := 1 to n do begin Read(m); if max < m then begin max := m; nmax := i end else if min > m then begin min := m; nmin := i end; if m < 0 then Inc(kn) else if m = 0 then Inc(kz) else Inc(kp); if m = t then Inc(kt); a[i] := m end; m := a[nmax]; a[nmax] := a[nmin]; a[nmin] := m; Writeln('Результирующий массив'); for i := 1 to n do Write(a[i], ' '); Writeln; Writeln('Количество элементов, равных ', t, ': ', kt); Writeln('Количество отрицательных элементов равно ', kn); Writeln('Количество нулевых элементов равно ', kz); Writeln('Количество положительных элементов равно ', kp) end.
Тестовое решение: Задайте количество элементов в массиве (1-50): 13 Введите значение для поиска: 7 Введите элементы массива 15 -6 11 0 7 0 18 -7 -3 -4 7 0 12 Результирующий массив 15 -6 11 0 7 0 -7 18 -3 -4 7 0 12 Количество элементов, равных 7: 2 Количество отрицательных элементов равно 4 Количество нулевых элементов равно 3 Количество положительных элементов равно 6
Ответить на вопрос
Поделитесь своими знаниями, ответьте на вопрос:
Какая информация выводится в строке состояния? Приведите иллюстрацию.
const k = 0;
var temp : array [1..N] of integer;
i, min, max, count : integer;
begin
min := 1000; max := -1000;
count := 0;
{Заполнение массива данными}
for i := 1 to N do
begin
write(i,'-й месяц: ');
readln(temp[i]);
if (temp[i] > max) then
max := temp[i];
if (temp[i] < min) then
min := temp[i];
{Если температура выше k - месяц считается теплым}
if (temp[i] > k) then
count := count + 1;
end;
writeln('Минимальная температура: ',min);
writeln('Максимальная температура: ',max);
writeln('Количество теплых месяцев: ',count);
readln;
end.