Помогите написать в паскалеЗадача Отыскать малое из чётных элементов массива 5

Помогите написать в паскале


Задачка


Найти минимальное из чётных частей массива 5 целых чисел.


Задачка


По фигурному катанию N арбитров выставляют оценки. Наивеличайшая и меньшая отбрасываются, а по остальным выставляется средний бал. Напишите программу, вычисляющую среднюю оценку и выдайте номер арбитров, которые поставили


наивеличайшую и меньшую оценки.





Задать свой вопрос
1 ответ

2)

uses crt;

const n=random(50);

var a:array[1..n]of integer;

i,min,max,s,k:integer;

begin

clrscr;min:=11;writeln('оценки ',n+1,' арбитров');

for i:=1 to n do

begin

a[i]:=random(10);

write(a[i],' ');

if a[i]gt; max then max:=a[i];

if a[i]lt;min then min:=a[i];

end;

for i:=1 to n do

begin

if (a[i]=min)or(a[i]=max) then begin write(i,' арбитр поставил малый либо наибольший балл');writeln;end;

if (a[i]lt;gt;min)and(a[i]lt;gt;max) then begin s:=s+a[i];k:=k+1;end;

end;

writeln('среднее значение оценок судей ',(s/k):1:1);

end.

1)Uses crt;

const n=5;

Var a:array[1..n]of integer;

   i,min,km:integer;

begin clrscr; randomize;

 for i:=1 to n do

 begin

   a[i]:=Random(100);

   write(a[i],' ');

 end;

 writeln;

 min:=a[1];

 km:=1;

 for i:=2 to n do if a[i]lt;min then

 begin

   min:=a[i];

   km:=i;

 end;

 writeln('Mimimalnoe chislo a[',km,']=',min);

 min:=100;

 km:=1;

 for i:=2 to n do if (a[i]lt;min)and(a[i]mod 2=0) then

 begin

   min:=a[i];

   km:=i;

 end;

 writeln('Naimenshee chetnoe cislo a[',km,']=',min);

 readln;

end.

, оставишь ответ?
Имя:*
E-Mail:


Добро пожаловать!

Для того чтобы стать полноценным пользователем нашего портала, вам необходимо пройти регистрацию.
Зарегистрироваться
Создайте собственную учетную запить!

Пройти регистрацию
Авторизоваться
Уже зарегистрированны? А ну-ка живо авторизуйтесь!

Войти на сайт