Регистрация
svesda2
17.08.2022 00:46
Информатика
Есть ответ 👍

сделать практическую работу от

195
356
Посмотреть ответы 1

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

kublahan
kublahan
4,4(92 оценок)
Const  n=5; var     a: array [1..n,1..n] of integer;     b: array[1..n*n]of integer;     i,j,k,p: integer;     f: boolean; begin k: =0; for i: =1 to n do   begin   for j: =1 to n do     begin     a[i,j]: =random(100);     write(a[i,j]: 5);     f: =true;     for p: =2 to (a[i,j] div 2) do       if a[i,j] mod p=0 then f: =false;         if f then           begin           k: =k+1;           b[k]: =a[i,j];           end;         end;   writeln;   end; write('искомый массив: '); for p: =1 to k do write(b[p],' ');   end.

Популярно: Информатика