Решение показано в прилагаемом файле.
Ответ: 77
Проектор он называется проектор ( просто тут 20 символов просят )
A(I) - массив
L - лучший рез-т
H - худший рез-т
S - средний рез-т
О - общая сумма рез-тов
CLS
DIM A(8)
FOR I=1 TO 8 STEP 1
INPUT A(I);
NEXT (I)
L = A(1)
H = A(1)
О=0
FOR I=1 TO 8 STEP 1
IF L<A(I) THEN L=A(I)
IF H>A(I) THEN H=A(I)
О=O+A(I)
NEXT (I)
S=O/8
останется только вывод полученных результатов
Var
a:array [1..10] of real;
ran:real;
i:integer;
begin
for i:= 1 to 10 do
begin
ran:=100-random(200)+1;
a[i]:= ran;
if a[i]< 0
then begin
write(a[i],' ');
writeln(i);
end;
end;
end.<span>
</span>
F1 Дано целое число. Если оно является положительным, то прибавить к нему 1; в противном случае не изменять его. Вывести полученное число.
If2 Дано целое число. Если оно является положительным, то прибавить к нему 1; в противном случае вычесть из него 2. Вывести полученное число.
If3 Дано целое число. Если оно является положительным, то прибавить к нему 1; если отрицательным, то вычесть из него 2; если нулевым, то заменить его на 10. Вывести полученное число.If4°Даны три целых числа. Найти количество положительных чисел в исходном наборе.
If5 Даны три целых числа. Найти количество положительных и количество отрицательных чисел в исходном наборе.
If6° Даны два числа. Вывести большее из них.
If7 Даны два числа. Вывести порядковый номер меньшего из них.
If8° Даны два числа. Вывести вначале большее, а затем меньшее из них.
If9 Даны две переменные вещественного типа: A, B. Перераспределить значения данных переменных так, чтобы в A оказалось меньшее из значений, а в B — большее. Вывести новые значения переменных A и B.
If10 Даны две переменные целого типа: A и B. Если их значения не равны, то присвоить каждой переменной сумму этих значений, а если равны, то присвоить переменным нулевые значения. Вывести новые значения переменных A и B.
If11 Даны две переменные целого типа: A и B. Если их значения не равны, то присвоить каждой переменной большее из этих значений, а если равны, то присвоить переменным нулевые значения. Вывести новые значения переменных A и B.
If12° Даны три числа. Найти наименьшее из них.
If13 Даны три числа. Найти среднее из них (то есть число, расположенное между наименьшим и наибольшим).Небольшое пояснение
If14 Даны три числа. Вывести вначале наименьшее, а затем наибольшее из данных чисел.If15 Даны три числа. Найти сумму двух наибольших из них