Const m=5; //число строк n=10; //число столбцов var i,j:integer; s,k:array[1..n]of integer; //s для суммы, k для количества простых чисел a:array[1..m,1..n]of integer;
function prost(x:integer):boolean; //функция определения простого числа var i:integer; begin result:=true; for i:=2 to (x div 2) do if (x mod i=0) and (i<>x) then result:=false; end;
begin //заполнение случайными числами и вывод массива for i:=1 to m do begin for j:=1 to n do begin a[i,j]:=random(20)+1; write(a[i,j]:5); end; writeln; end; //Просмотр по столбцам и подсчет s и k for j:=1 to n do begin for i:=1 to m do if prost(a[i,j]) then begin s[j]:=s[j]+a[i,j]; k[j]:=k[j]+1; end; end; writeln('Количество простых чисел по столбцам:' ); for i:=1 to n do write(k[i]:5); writeln; writeln('Сумма простых чисел по столбцам:' ); for i:=1 to n do write(s[i]:5); end.
Ввод текста сопровождается вводом следующих разделителей:
• разделителей слов и знаков препинания;
• разделителей элементов таблиц;
• разделителей строк;
• разделителей абзацев;
• разделителей страниц.
Некоторые из них должны быть введены
явно, а некоторые вводятся автоматически, хотя
их ввод можно форсировать вручную.
При воспроизведении на экране или печатной странице разделители
отображаются пробельным материалом (зазором, интервалом), но их можно явно
отобразить в специальном режиме. Этот режим включается (и выключается)
комбинацией клавиш CTRL + SHIFT + 8 или кнопкой Отобразить все знаки в
группе Абзац на вкладке Главная