Составить программу,которая формирует одномерный массив и выводит на экран все элементы,кратные 7.
10-11 класс
|
const
n=10;
var
a:array[1..n]of integer;
i,k:integer;
begin
for i:=1 to n do
begin
a[i]:=random(100);
write(a[i]:4);
end;
writeln;
for i:=1 to n do
if a[i] mod 7=0 then
begin
write(a[i]:4);
k:=k+1;
end;
if k=0 then
writeln('нет кратных 7')
end.
Другие вопросы из категории
А1 фамилия имя отчество
В1 и.о. фамилия
Найти сумму элементов первой и
третьей строк матрицы.
Локальный сайт поделен на три фрейма, в одном из них кнопки. Как сделать так, чтобы при нажатии кнопки новая страница открывалась в соседнем фрейме на этой же странице, а не на новой?
Читайте также
элементов массива A в строке.
подсчитать количество отрицательных элементов
сумму положительных элементов
ВЫВОДИТ НА ЭКРАН НОМЕРА ВСЕХ ЭЛЕМЕНТОВ, ЗНАЧЕНИЯ КОТОРЫХ =0
элементов настоящей таблице х [1 .. 10] на 0.
3.составить программу, замены отрицательного элементов настоящей таблице х [1 .. 10] на их квадрат.
4.составить прогрумму, которая увеличивает на 2 все элементы настоящей таблице х [1 .. 10], которые больше 10.
пересечения прямых, описываемых уравнениями a1x+b1x=c1 и a2x+b2x=c2. Если прямые пересекаются или не существуют-выдать соответствующее сообщение. 2) даны действительные числа a1, b1, a2, b2. Составьте программу, которая определяет, какая из точек A(a1;b1) или B(a2;b2) лежит на прямой у=2х+1. Если такой точки нет-вывести соответсвующее сообщение.
2. Написать прогрумму,которая выводит на экран, разность значений двух вещественных массивов из 10 элементов.