сервис вопросов и ответовЗаполнить массив L[15] случайными числами в интервале от 10 до 40, вывести его на экран и найти количество чисел кратных 3.
10-11 класс|
|
Piluly5050
18 марта 2017 г., 12:53:30 (7 лет назад)
Laykusha
18 марта 2017 г., 14:23:50 (7 лет назад)
var
a:array[1..15] of integer;
i,k:integer;
begin
writeln('Исходный массив');
k:=0;
for i:=1 to 15 do
begin
a[i]:=random(30)+10;
write(a[i]:3);
end;
writeln;
writeln('Числа кратные 3');
for i:=1 to 15 do
if (a[i] mod 3 = 0) then
begin
write(a[i]:3);
inc(k);
end;
writeln;
write('Таких чисел - ',k);
end.
Ответить
Другие вопросы из категории
Предположим,
что каждый день Вы получаете сообщения
электронной
почты от неизвестных отправителей.
Как
называется такой тип угрозы безопасности?
Получение доступа путем обмана
Фишинг
клевета
Спам
Тема: Одномерные массивы.
Задание 22.
Написать в паскале программу.
http://cs540108.vk.me/c624831/v624831678/e2e5/T8n_Z6B_4MU.jpg
что не так в моей задаче по Паскалю?
Program A;
Var z,b,i:integer;
begin randomize;
z:=randon(16);
b:=randon(16);
i:=randon(16);
writeln('z=',z,'b=',b,'i=',i);
if (z>b) and (b>i) then writeln('z=',z,'b=',b,'i=',i);
if (z>i) and (i>b) then writeln('z=',z,'i=',i,'b=',b);
if (zz) and (bi) and (i>z) then writeln('b=',b,'i=',i,'z=',z);
if (bi) then writeln('z=',z,'i=',i,'b=',b);
readln(z,b,i);
end.
Читайте также
Заполнить массив L[15] случайными числами в интервале от 10 до 40, вывести его на экран и найти количество чисел кратных 3.
Заранее спасибо!
1)заполнить массив из 15 элементов числами из интервала от -10 до 10 вывести в строчку и повторно вывести в строчку,заменив все четные элементы на число
100.
2) Заполнить массив целыми положительными и отрицательными числами из интервала [-10;10] и вывести его в строчку. Поменять знаки элементов массива на противоположные и повторно вывести массив на экран в строчку.
Пожалуйста,помогите,очень срочно!!!
Срочно! Помогите пожалуста! Нужно написать програмный код в турбо паскале! Заранее ОГРОМНОЕ СПАСИБО!! Заполнить массив из 10 элементов
случайными числами в интервале от 0 до 4 и вывести номера всех элементов, равных X.
Пример:
Исходный массив:
4 0 1 2 0 1 3 4 1 0
Что ищем? 0
A[2], A[5], A[10]
Срочно! Помогите! Написать программу в турбо паскале Заполнить массив из 10 элементов случайными числами в интервале от 0 до 4 и определить,
есть ли в нем одинаковые соседние элементы.
Пример:
Исходный массив:
4 0 1 2 0 1 3 1 1 0
Заранее огромное спасибо!!!!
Вы находитесь на странице вопроса "Заполнить массив L[15] случайными числами в интервале от 10 до 40, вывести его на экран и найти количество чисел кратных 3.", категории "информатика". Данный вопрос относится к разделу "10-11" классов. Здесь вы сможете получить ответ, а также обсудить вопрос с посетителями сайта. Автоматический умный поиск поможет найти похожие вопросы в категории "информатика". Если ваш вопрос отличается или ответы не подходят, вы можете задать новый вопрос, воспользовавшись кнопкой в верхней части сайта.