Составьте программу вычисления произведения элементов матрицы B(N,N),кратных 3. Турбо паскаль
5-9 класс
|
Program JolieWErnAje;
uses crt;
const n=10;
var
a:array[1..n,1..n] of integer;
i,j: integer;
tp: integer;
begin
writeln('*** alphaues is thinking... ***');
writeln('*** OK ***');
writeln();
tp:=1;
randomize;
for i:=1 to n do
begin
for j:=1 to n do
begin
a[i,j]:= random(20)+1; {заполняем массив}
write(a[i,j]:4);
if a[i,j] mod 3 = 0 then tp:=tp*a[i,j];
end;
writeln();
end;
writeln();
writeln('Произведение элементов, кратных 3, равно ',tp)
end.
Другие вопросы из категории
Надо чтобы когда я нажимаю на кнопку button у меня программа переходила на следующюю форму мне нужен программный код Делфи7
канал связи передаётся сообщение гаваб можно ли при таком кодировании однозначно расшифровать полученное сообщение сколько всего способов расшифровки существует
а-програма
б user
в-операциооная система
г- винчестер
2 Выберите верную запись имени файла
а- письмо.dog
б-письмо:doc
в-письмо.doc
г-"письмо".doc
Задано четырехзначное число. Проверить, что в заданном числе произведение 2-х первых цифр равно произведению двух последних цифр.
Читайте также
N) произведения нечетных элементов 2)Составьте программу вычисления в массиве B(N) максимального среди отрицательных элементов и его номера. заранее огромное спасибо! очень нужно!
элементов. 3) Составьте программу вычисления среднего арифметического элементов массива. Пожалуйста.. очень надо!
поверхности, суммы ребер прямоугольного параллелепипеда. 3. Составьте программу вычисления диагоналей ромба по стороне и углу.
2.Составьте программу вычисления количества трёхзначных чисел палиндромов ( чисел, которые читаются одинаково слева направо и справа налево).
3.Найти двухзначные числа, которые делятся на сумму своих цифр
4.Составьте программу вывода количества трёхзначных чисел, у которых цифры упорядочены строго по убыванию.
РЕБЯТА СРОЧНО!!!!!!!!!!!