Регистрация
Хэлоу1
16.01.2020 09:20
Информатика
Есть ответ 👍

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

284
474
Посмотреть ответы 2

Ответы на вопрос:

NastenkaDrow
NastenkaDrow
4,5(53 оценок)
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) 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; beginh : = 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.
Joohoney
Joohoney
4,6(95 оценок)
Код программы а загруженном файле

Популярно: Информатика