Создать массив из 10 чисел, каждое из которых не больше 28 найти номер первого элемента массива, делящегося на 7(паскаль)

Программа на паскале: program bifi; const n=10; var a: array [1..n] of integer; i,k: integer; begin k: =0; for i: =1 to n do begin  a[i]: =random(28);                         while k=0 do if a[i] mod 7 =  0 then k: =i;                       end; writeln(k); readln; end.

var

  n, i, j, summ: integer;

  a: array[1..100, 1..100] of integer;

begin

  write('n = '); readln(n);

  writeln('исходный массив: ');

  for i : = 1 to n do

  begin

      for j : = 1 to n do

      begin

          a[i, j] : = random(21);

          write(a[i, j]: 4);

      end;

      writeln;

  end;

  summ : = 0;

  for i : = 1 to n do

      summ : = summ + a[i,i];

  writeln('сумма элементов стоящих на главной диагонали равна ', summ);

end.

s$ = ""

for i = 1 to 100if (i mod 2) < > 0 then s$ = s$ + str$(i) + " "end ifnext i

print s$

 

 

дополнение :

 

чисел много, на экран не убираются

будем из запоминать в текстовую переменную s$

s$ = "" -- инициализирует пустую строковую переменнуюfor i = 1 to 100 -- цикл от 1 до 100if (i mod 2) < > 0 then -- нечетное число то, у которого отстаток от деления -- на 2 не равен 0 -- < > логический оператор не равно -- mod - оператор возвращает остаток от деленияs$ = s$ + str$(i) + " " -- положить в конец переменной s$ строковое -- предствление числовой переменной iend if -- конец блока циклаnext iprint s$ -- вывод переменной s$ на экран