Помогите пожалуйста)1)Оценки в соревнованиях по фигурному катанию выставляются 9
Помогите пожалуйста)
1)Оценки в соревнованиях по фигурному катанию выставляются 9 арбитрами.Позже одна самая низкая и одна самая высочайшая оценки отбрасываются и в зачет идет среднее арифметическое оставшихся оценок.Составьте программу,которая определяет зачетную оценку спортсмена.Оценки арбитров ввести с клавиатуры(целые числа от 1 до 6).
2)Составьте программку,которая наполняет массив a[1..10] случайными целыми числами в спектре от 0 до 10 и обретает наибольший элемент массива посреди элементов с четными индексами.
3)Составьте программку,которая заполняет массив a[1..10] случайными целыми числами в диапазоне от 0 до 10 и обретает малый элемент массива среди элементов с нечетными индексами.
4)Составьте программку,которая заполняет массив a[1..10] случайными целыми числами в спектре от 0 до 10,обретает наибольший элемент массива,а затем вычисляет,сколько раз он встречается в массиве.
5)Составьте программу,которая наполняет массив a[1..10] случайными целыми числами в диапазоне от 0 до 10 и обретает сумму малого и наибольшего элементов массива.
max,min,i:integer;
b:real;
a:array[1..9]of integer;
begin
for i:=1 to 9 do
begin
while (a[i]lt;1) or (a[i]gt;6) do
begin
write(i,' оценка: ');
readln(a[i]);
end;
if i=1 then
begin
max:=a[1];
min:=a[1];
end;
if a[i]gt;max then max:=a[i];
if a[i]lt;min then min:=a[i];
b:=b+a[i];
end;
b:=(b-min-max)/7;
writeln('Зачетная оценка: ',b);
end.
2. include lt;stdafx.hgt;
include lt;stdio.hgt;
include lt;math.hgt;
include lt;stdlib.hgt; //for rand;
int main()
int i, n,M[1];
printf("Vvedit N:");
scanf("%d",amp;n);
for (i = 0; i lt; n; i++)
M[i] = rand()%10;
for (i = 0; i lt; n; i++)
printf("Array[%d] = %d\n", i, M[i]);
scanf("%d");
return 0;
3. var
a:array[0..9] of integer;
i,y,min:integer;
begin
randomize();
for i:=0 to 9 do
begin
y:= random(10);
a[i]:= y;
end;
for i:=0 to 9 do write(a[i],' ');
writeln(' - 10 випадковых чисел');
min:=a[0];
for i:=1 to 9 do
if a[i]lt;min then min:=a[i];
writeln(min, ' - минимальне число.');
end.
-
Вопросы ответы
Статьи
Информатика
Статьи
Разные вопросы.
Қазақ тiлi.
Английский язык.
Математика.
История.
Экономика.
Экономика.
Русский язык.
Разные вопросы.
Математика.