М
Молодежь
К
Компьютеры-и-электроника
Д
Дом-и-сад
С
Стиль-и-уход-за-собой
П
Праздники-и-традиции
Т
Транспорт
П
Путешествия
С
Семейная-жизнь
Ф
Философия-и-религия
Б
Без категории
М
Мир-работы
Х
Хобби-и-рукоделие
И
Искусство-и-развлечения
В
Взаимоотношения
З
Здоровье
К
Кулинария-и-гостеприимство
Ф
Финансы-и-бизнес
П
Питомцы-и-животные
О
Образование
О
Образование-и-коммуникации
volodya13031
volodya13031
21.03.2020 22:22 •  Информатика

Турбо паскаль 1)ввести с клавиатуру 10 произвольных чисел. подсчитать и напечатать количество положительных, отрицательных и нулевых чисел. 2)дана последовательность y=n*x+(x-n) x-изменяется от2 до 10 с шагом 1, n-ввести с клавиатуры. напечатать x и y. 3)вывести таблицу умножения от 5 до 9. 4)с клавиатуру ввести 10 чисел. вычислить и напечатать среднее арифметическое этих чисел. 5)найти площади прямоугольников со сторонами a и b=4,5,6,7,8

👇
Ответ:
neriman04
neriman04
21.03.2020
1  Ввести с клавиатуру 10 произвольных чисел. Подсчитать и напечатать количество положительных, отрицательных и нулевых чисел.
4) Среднее арифметическое.
2)
4,4(79 оценок)
Открыть все ответы
Ответ:
Var 
a:array[1..18] of integer; 
i,n,n2,max:integer;
Begin for i:=1 to 18 do Begin 
case i of 
1..6:begin Write('Введите ',i,'-ую оценку по обязательной программе '); Readln(a[i]); n:=n+a[i]; if i=6 then Begin max:=n; n:=0; n2:=1; End; End; 
7..12:Begin Write('Введите ',i-6,'-ую оценку по короткой программе '); Readln(a[i]); n:=n+a[i]; if i=12 then Begin if n>max then Begin max:=n; n2:=2;End; n:=0; End; End; 
13..18:Begin Write('Введите ',i-12,'-ую оценку по произвольной программе '); Readln(a[i]); n:=n+a[i]; if i=18 then Begin if n>max then Begin max:=n; n2:=3;End; n:=0; End; End; 
end; 
end; 
case n2 of 
1: write('Лучшая оценка по обязательной программе = ',max); 
2: write('Лучшая оценка по короткой программе = ',max); 
3: write('Лучшая оценка по произвольной программе = ',max); 
End;
End.
4,4(97 оценок)
Ответ:
VikaRayder
VikaRayder
21.03.2020
1) неверно, потому что изначально Миша хочет только в лес.
2) здесь скорее всего имелось ввиду, что все пойдут в лес. И это верно. Если Света пойдет в лес, то все возьмут корзины и ножики и все пойдут в лес, потому что в лес идет Миша, с ним Настя. Уже идут и Света и Настя в лес, с ними тогда Маша. Света и Настя не идут на рыбалку, значит с ними Гриша, а с Гришей и Алексей. Все пойдут в лес!
3) неверно, т.к. если Миша идет на рыбалку, то с ним Настя.
4) неверно, т.к. Миша хочет в лес независимо от решения Светы, а вместе с Мишей пойдет и Настя, их уже двое
4,4(23 оценок)
Это интересно:
Новые ответы от MOGZ: Информатика
logo
Вход Регистрация
Что ты хочешь узнать?
Спроси Mozg
Открыть лучший ответ