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

Дан массив из 10 элементов в диапазоне от 0 до 100 найти s элементов,больших 50 и посчитать их количество

👇
Ответ:
asim2001
asim2001
03.04.2022
Program n1;
var a: array[1..10] of integer;
S,i,k: integer;
begin
randomize;
write('массив: ');
S:=0;
k:=0;
for i:=1 to 10 do
begin
a[i]:=random(101);
write(a[i],' ');
end;
writeln;
write('сумма a[i]>50: ');
for i:=1 to 10 do if a[i]>50 then
begin
k:=k+1;
S:=S+a[i];
end;
writeln(S);
write('кол-во: ', k);
end.
4,4(19 оценок)
Открыть все ответы
Ответ:
katerinarakova
katerinarakova
03.04.2022

1) a = int(input('Введите градусную меру угла:'))

2) if a < 90 and a > 0:

3)     print('Вы ввели градусную меру острого угла.')

4) if a == 90:

5)     print('Вы ввели градусную меру прямого угла.')

6) if a > 90 and a != 180 and a <= 360:

7)     print('Вы ввели градусную меру тупого угла.')

8) if a == 180:

9)     print('Вы ввели градусную меру тупого угла.')

10) if a > 360:

11)     print('Вы ввели слишком большую цифру, повторите попытку.')

12) if a <= 0:

13)     print('Вы ввели слишком маленькую цифру, повторите попытку.')

Объяснение:

1) Задаём переменную "a", которая принимает введенное человеком число.

2) Если "а" меньше 90 и больше 0, то:

3) Выводится в командной строке 'Вы ввели градусную меру острого угла.'

4) Если "a" равно 90, то:

5) Выводится в командной строке 'Вы ввели градусную меру прямого угла.' P.S.: мы ставим 2 знака "=", так как мы не задаем переменную, а ставим условие.

6) Всё тоже самое, но тут мы пишем, что "a" не будет считаться тупым при 180, используя "!=".

7, 8 и 9) Всё тоже самое.

10 - 13) Предсказываем возможные ошибки. Всё тоже самое.

4,4(64 оценок)
Ответ:
NatalyaCeluh
NatalyaCeluh
03.04.2022

3:

var a,b,c,d,e,f,g:real;

begin

   write('Введите сумму наличных средств (руб): '); readln(a);

   write('Введите стоимость 1 кг конфет (руб): '); readln(b);

   write('Введите массу конфет (кг): '); readln(c);

   write('Введите стоимость 1 кг яблок (руб): '); readln(d);

   write('Введите массу яблок (кг): '); readln(e);

   f := b*c + d*e;

   g := a - f;

   writeln('Стоимость покупки составит ', f:0:2, ' руб.');

   writeln('Сдача ', g:0:2, ' руб.');

end.

4:

var a:real;

begin

   write('Введите длину куба: '); readln(a);

   writeln('Объём куба = ', a*a*a:0:2);

   writeln('Площадь поверхности куба =  ', 6*a*a:0:2);

end.

4,4(39 оценок)
Новые ответы от MOGZ: Информатика
logo
Вход Регистрация
Что ты хочешь узнать?
Спроси Mozg
Открыть лучший ответ