При анализе данных, собранных в рамках научного эксперимента, бывает полезно удалить самое большое и - id2143143820230212 от lolologhka 12.02.2023 17:51

Question

Информатика: При анализе данных, собранных в рамках научного эксперимента, бывает полезно удалить самое большое и самое маленькое значение. На вход программе подается натуральное число nn, а затем nn различных натуральных чисел. Напишите программу, которая удаляет наименьшее и наибольшее значение из указанных чисел, а затем выводит оставшиеся числа каждое на отдельной строке, не меняя их порядок. Формат входных данных На вход программе подаются натуральное число nn, а затем nn различных натуральных чисел, каждое

lolologhka · Accepted Answer

Program project1;
uses
crt,math;
var s:real; i,j,f:real; a:integer;
begin
writeln('vvedite 1 chislo ');readln(i);
  writeln('vvedite 2 chislo ');readln(j);
writeln('vvedite 3 chislo ');readln(f);
s:=i;
if j<s then s:=j;
if f<s then s:=f;
if s<0 then
begin
  if i<0 then inc(a);
  if j<0 then inc(a);
if f<0 then inc(a);
writeln('kolichestvo otricatelnix ',a:2);
  end
else
begin
if i>0 then i:=i*-1;
  if j>0 then j:=i*-1;
  if f>0 then f:=i*-1;
end;
writeln('min chislo ',s:2:0);
readln;
end.

MOGZ ответил