Решите программу в Раскаль:
5-9 класс
|
Составить программу,которая заполняет массив A [1..10] случайными целыми числами в диапазоне от 0 до 2 и выводит на экран количество элементов, равных 1.
var
i,c: integer;
a: array [1..10] of integer;
begin
for i:=1 to 10 do begin
a[i]:= random(3);
if a[i]=1 then inc(c)
end;
writeln(c)
end.
Другие вопросы из категории
Составить алгоритм,печати,таблицы значений,функций y=5x-2 на отрезке [1;20] с шагом h=2
должен быть оформлен в виде:
Площадь прямоугольника равна....кв.см
периметр прямоугольника равен..см
Читайте также
Program P12;
Var A,B,C, P : integer;
Begin
Writeln(‘ Введите стороны треугольника’);
Readln(A,B,C);
P:=A+B+C;
Writeln(‘ P= ’, P);
End.
Посчитать сумму чисел больше 20 , но меньше 100, кратное 3.
.Определить в какой день он пробежит больше 20км ,а в какой день суммарный пробег за все дни превысит 100км?
день», «Добрый вечер», «Спокойной ночи».
2. Составьте программу, которая вычисляет оптимальный вес пользователя, сравнивает его с реальным весом и выдает рекомендации о необходимости поправиться или похудеть. Оптимальный вес вычисляется по формуле: рост (в сантиметрах) – 100.
Помогите решить 2 задачи