Задать массив из 25 элементов случайными числами в диапазоне от 0 до 80 и вывести его на экран, найти все числа из диапазона (15;40], их общую сумму и среднее арифметическое, вывести их на экран, а также подсчитать количество таких элементов.Паскаль
274
278
Ответы на вопрос:
Var a:array[1..50] of byte;
n,p, i,k,m,j,x,y,z: integer;
begin
writeln('Введите количество элементов');
readln(p);
repeat; - обратите внимание, что Вы написали repead, хотя нужно repeat.
n:=4;
for i:=n downto 1 do begin
a[i]:=p mod 10;
p:= p div 10;
end;
For i:=1 To n-1 Do Begin
k := i;
For j := i + 1 To n Do
If a[j] >= a[k] Then
k := j;
m := a[i];
a[i] := a[k];
a[k] := m;
end;
x:=a[1]*1000+a[2]*100+a[3]*10+a[4];
For i := 1 To N - 1 Do Begin
k := i;
For j := i + 1 To n Do
If a[j] <= a[k] Then
k := j;
m := a[i];
a[i] := a[k];
a[k] := m;
end;
y:=a[1]*1000+a[2]*100+a[3]*10+a[4];
z:=x-y;
until z=p;
writeln(z);
end.
Популярно: Информатика
-
NekitKrut200709.12.2020 18:39
-
ададсжсжэвжю30.10.2020 01:35
-
eparhomenko09.01.2020 11:28
-
Катюшкавасилек02.07.2020 10:56
-
batrazmargit27.10.2020 18:39
-
tamaragladysheva27.09.2022 04:09
-
Anasstassat17.01.2021 01:59
-
yadron5402.09.2021 03:01
-
SuPeRGaMeRDGRST01.07.2022 08:32
-
Анастасия1099823.03.2022 20:15