Question

(ДАЮ 50 БАЛОВ) Дано одновимірний масив перших ста натуральних чисел. Вивести на екран елементи масиву, що кратні 7( бажано рядками по 10 у кожному) Інформатика 9 клас. Паскаль. ​

Answer 1

Ответ:

Объяснение:

const

 n =100;

var

 a : array[1..n] of Integer;

 j , k: integer;

 s : string;

begin

// input array

 for j := 1 to n do begin

   a[j] := j;

 end;

 k := 0;

 s := '';

 for j := 1 to n do begin

   if a[j] mod 7 = 0 then begin

     Inc(k);

     s := s + IntToStr(a[j]) + ' ';

     if k = 10 then begin

       ListBox1.Items.Add(s);

       s := '';

       k := 0;

     end;

   end;

 end;

 if s<>'' then

   ListBox1.Items.Add(s);

end;