Question

Дан массив размера N. Вывести все двузначные элементы массива и их номера

PASCAL напишите программу плиз

Answer 1

Ответ:

program z;

const N=15;

var a:array[1..N]of integer;

i:integer;

begin

randomize;

write('Массив: ');

for i := 1 to N do

begin

a[i]:=random(151);

write(a[i],' ')

end;

writeln;

write('Двузначные элементы: ':21);

for i := 1 to N do if (a[i]>9) and (a[i]<100) then write(a[i]:4);

writeln;

write('Их номера: ':21);

for i := 1 to N do if (a[i]>9) and (a[i]<100) then write(i:4)

end.