Написать программу на паскале: в целочисленном одномерном массиве из n(n< =50)элементов.найти номера элементов кратных 3.если таких элементов нет, то сообщить об этом.массив заполнить вручную.

239

445

Посмотреть ответы 3

Ответы на вопрос:

lenakors1997

Информатика

4,6(84 оценок)

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 ***'); 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.

Алахахбар228

Информатика

4,4(43 оценок)

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.

mashacherevchenko

Информатика

4,7(40 оценок)

1) var x: integer; beginwrite('который час? '); read(x); if (x> =0) and (x< 6) then writeln('спокойной ночи'); if (x> =6) and (x< 12) then writeln('доброе утро'); if (x> =12) and (x< 18) then writeln('добрый день'); if (x> =18) and (x< 24) then writeln('добрый вечер'); end.2)var a,b,x: integer; beginwrite('введите рост: '); read(a); write('введите вес: '); read(b); x: =a-100; if x> b then writeln('нужно поправиться')else writeln('нужно поxудеть'); end.