Cоставить программу в паскале по подсчету кол-ва жильцов в доме случайным числом в диапазоне от 50 до 200 человек.(число домов 30).Программу составить
10-11 класс
|
через массив.
Program zadacha;
Var a:array [1..100] of integer;
i,s:integer;
Begin
Randomize;
s:=0;
For i:=1 to 30 do begin
a[i]:=random(150)+50;
s:=s+a[i];
End;
Writeln(s);
End.
Другие вопросы из категории
var a:real; i:integer;
a:=1; i:=1;
while i<5 do i:==i+1; a:=a+1*i;
ПЕРЕВЕСТИ
1265^10сс перевести в 2cc,8cc,16cc
10010011^2cc перевести в 8cc,10cc,16cc
344^8cc перевести в 10cc,16cc,2cc
9A1E^16 перевести в 2cc,8cc,10cc
и сообщение о количестве повторений.
Например:
Вход: Счастливого пути!
ДРУЗЬЯ
2
Выход: ДРУЗЬЯ
ДРУЗЬЯ
Счастливого пути!
Количество повторений - 2
Читайте также
170 см. Считать число претендентов случайном числом в диапазоне от 150 до 200, число претендентов 50 (программу писать через массив)
2)Составьте программу которая выводит на экран числа кратные 2 и 13 в диапазоне от 2 до 150
3)Дано вещественное число А и целое число N(>0).Испульзуя один цикл вывести все целые степени числа А от 1 до N
------------------------ОПЕРАТОР WHILE
меньше 52.
2)В результате работы некоторой подпрограммы вычислены значения четырех переменных a, b, c, d. Написать на предложенном в пункте а) языке программирования программу, после работы которой в случае, если сумма положительных значений (среди a, b, c, d) больше 20, значение g равно наибольшему из a, b, c, а в остальных случаях значение g равно значению d. (В программе можно использовать новые переменные.)
подсчитать среднее арифметическое положительных элементов массива, которые кратны первому элементу массива. №2. Дан массив из 40 элементов. Каждый элемент может принимать целочисленные значения от 0 до 200. Напишите программу, которая позволит найти наиболее часто встречающийся элемент массива