написать программу на паскале: в целочисленном одномерном массиве из N(N<=50)элементов.Найти номера элементов кратных 3.Если таких элементов нет, то
10-11 класс
|
сообщить об этом.Массив заполнить вручную.
uses crt;
var
a:array[1..50] of integer;
i,n,k:integer;
begin
clrscr;
k:=0;
write('Введите количество элементов массива'); read(n);
writeln('Введите массив:');
for i:=1 to n do
read(a[i]);
write('Номера элементов, кратных 3:');
for i:=1 to n do
if (a[i] mod 3=0) then
begin
k:=k+1;
write(i,' ');
end;
if k=0 then write('Таких элементов нет.');
end.
Program Natasha1925;
uses crt;
const n=50;
var
a:array[1..n] of integer;
tri:array[1..n] of integer;
nom,i: integer;
begin
writeln('*** alphaues is thinking... ***');
writeln('*** OK ***');
nom:=0;
for i:=1 to n do
begin
write('Введите ',i,'-e число ');
readln(a[i]);
if a[i] mod 3 = 0 then
begin
nom:=nom+1;
tri[nom]:=i;
end;
end;
if nom = 0 then
writeln('Элементов, кратных 3, нет!: ')
else
begin
writeln('Номера элементов, кратных 3: ');
for i:=1 to nom do
begin
write(tri[i],' ');
end;
end;
writeln();
end.
Другие вопросы из категории
Найдите все целые решения уравнения
K:=0
for x:=1 to 2 do
for i:=1 to 3 do
if x=i then for j:= 1 to 3 do k:=k+1
writeln ('k =', k)
P.S модеры, это не контрольная и не экзаменационные задания, а дали порешать
Читайте также
оказаться)
нужно написать программу на c++
Используя обращения 1) по индексу и 2) по указателю.
добрый вечер, всем. помогите, пожалуйста, написать программу на Ассемблере.
задание:
Создать программу на языке Ассемблер, что позволяет организовать вычисления над элементами массивов
Объединить два массива 8-битных целых чисел со знаком. Сначала элементы второго затем первого.
заранее огромное спасибо всем!
Сформируйте два одномерных массива. В один перешлите четные, а в другой
-нечетные элементы матрицы. Выведите на экран все массивы.
2.написать программу в паскале
f(x)=2(sin*sin)x+1
-нечетные элементы матрицы. Выведите на экран все массивы.
ИЛИ