1) ввести с клавиатуры массив из 10 элементов посчитать среднее значение и суммы 2) Вывести масив из 8 элементов с генератора случайных чисел в диапазоне от -10 до +10 и посчитать количество отрицательных элементов массива
Ответы на вопрос:
1)
program v8;
var a:array[1..10] of integer;
n,m,i,sum:integer;
t:real;
begin
writeln('Введите числа массива: ');
sum:=0;
for i:=1 to 10 do
readln(a[i]);
for i:=1 to 10 do write(a[i]:5); writeln;
for i:=1 to 10 do
begin
sum:=sum+a[i];
t:=sum/10;
end;
writeln('Сумма = ', sum ,' среднее арифметическое равно ',t);
end.
3
Объяснение:
Ввод a и b
Если одно из условий a > 10 или b < 10 верно (да), то вывод ДА
в противном случае (когда оба условия не верны) вывод НЕТ
a = -10 b = 2
-10 > 10 (нет)
2 < 10 (да)
вывод ДА
a = 1 b = 2
1 > 10 (нет)
2 < 10 (да)
вывод ДА
a = 10 b = 10
10 > 10 (нет)
10 < 10 (нет)
вывод НЕТ
a = 10 b = 11
10 > 10 (нет)
11 < 10 (нет)
вывод НЕТ
a = 11 b = 10
11 > 10 (да)
10 < 10 (нет)
вывод ДА
a = 11 b = 2
11 > 10 (да)
2 < 10 (да)
вывод ДА
a = -12 b = -11
-12 > 10 (нет)
-11 < 10 (да)
вывод ДА
a = -10 b = -10
-10 > 10 (нет)
-10 < 10 (да)
вывод ДА
a = 1 b = 15
1 > 10 (нет)
15 < 10 (нет)
вывод НЕТ
Популярно: Информатика
-
marina2002ermol16.11.2021 22:55
-
RAMINA190320.06.2023 08:55
-
aidos200830.03.2021 23:34
-
vmatveicheva04.09.2022 04:35
-
лиза1232224.06.2021 04:19
-
меаавепеу27.02.2020 07:34
-
dmitrylazar130.10.2020 01:42
-
kirillshok20.03.2020 18:06
-
yjsts29.02.2020 12:13
-
6дкоув04.03.2020 17:14