составить програмку:))
5-9 класс
|
var
i, s: integer;
a: array[1..10] of integer;
begin
writeln('Исходный массив:');
for i := 1 to 10 do
begin
a[i] := random(30);
if a[i] mod 3 = 0 then s := s + 1;
write(a[i]:3)
end;
writeln;
writeln('Число элементов, кратных 3: ', s);
end.
Другие вопросы из категории
Все имена существительные изменяются по падежам и числам. Слово"урок" - имя существительное. Следовательно, ...
Читайте также
a:=39*54-sqr(84));
readln
end.
Напишите ошибку, ну и объясните, если не сложно)
Или
составьте программу, которая определяет на сколько в строке S слов, начинающихся на главную букву больше, чем в строке T
надо решить одну из них
2)Составьте программу,которая заполняет массив e[1..8] случайными целыми числами в диапазоне от 1 до 20 и находит сумму элементов с нечётными значениями и количество элементов кратных 3.
3)Составьте программу,которая заполняет массив e[1..14] случайными целыми числами в диапазоне от -10 до 10,затем изменяет знак положительных элементов на противоположный,а отрицательные элементы заменяет на 0.Спасибо.
программу на Паскале, в которой вычисляются четыре величины: средние температуры зимних месяцев, весенних месяцев, летних и осенних. 2)Вы посетили магазин и купили 10 видов товара. В таблицу T [1..10] записали количество купленного товара каждого вида. В таблицу C [1..10] записали цену единицы каждого вида товара соответственно. Составить программу на Паскале вычисления общей стоимости всех покупок.
2. Составить программу, которая позволяет заменить все гласные символом "*"