№1 Массив А из 8 элементов заполнить целыми случайными из [-15;15]. Найти min элемент...

Question

№1
Массив А из 8 элементов заполнить целыми случайными из [-15;15]. Найти min элемент массива. Выдать порядковые номера всех элементов, равных минимальному.
№2
Массив А заполнить: 1 3 5 7 9 ... 99
Найти среднее арифметическое элементов, расположенных с 5 по 8.
№3
Дан массив А из 12 элементов. Вычислить кол-во элементов, значение которых равно В

Comments

PaskalABC.NET массивы

---

от простого АВС отличается сильно?

---

современный язык программирования, основанный на Delphi (Object Pascal) и сочетающий простоту языка Паскаль и огромные возможности платформы .NETбесплатная, простая и мощная среда разработки, ориентированная на обучение программированию.

Answer 1

1)
uses crt;
var a=array[1..8] of integer;
b=array[1..8] of integer;
i,min,j:integer;
begin
randomize;
min:=16;
for i:=0 to 8 do
begin
a[i]=random(30)-15;
if (a[i]min:=a[i];
end;
j:=0;
for i:=0 to 8 do
if (a[i] = min)
begin
b[j] = i;
j = j+1;
end;
for i:=0 to j do
writeln(b[i]);
end.
2)
uses crt;
var a=array[1..51] of integer;
i,sum,j,h:integer;
begin
h := 1;
for i:=1 to 51 do
begin
a[i]=i+h
h:=h+1;
if (i = 5 or i = 6 or i =7 or i = 8) there
begin
sum := sum=a[i];
j := j+1;
end;
end;
writeln(sum/j);
end.
3)
uses crt;
var a=array[1..12] of integer;
i,b:integer;
begin
randomize;
readln(b)
for i:=1 to 12 do
begin
a[i]=random(100)
if (a[i] = b) there
j := j+1;
end;
writeln(j);
end.

Comments

желательно 3 хотя бы еще

---

сейчас немного подожди

---

Спасибо