Составить программу, которая заполняет одномерный массив из 20 элементов случайными целыми числами от 1 до 99, а затем определяет, сколько в массиве имеется простых чисел (простым числом называется такое, которое делится только на единицу или само на себя процесс определения того, является ли число простым, оформить в виде отдельной процедуры.

Procedure P(Const A:integer; Var p:integer);
Var
   K:real;
   d:integer;
Begin
if A > 1 then
   if (A = 2)or(A = 3) then p:=p+1
   else
      if A mod 2 <> 0 then
         Begin
         K:=Sqrt(A);
         d:=3;
         While (d<K)and(A mod d <> 0) do
            d:=d+2;
         if A mod d <> 0 then
            Begin
            p:=p+1;
            Write('(простое)')
            End
         End;
End;
Const
   N = 20;
Var
   A:array[1..N] of integer;
   i,k:integer;
Begin
Randomize;
k:=0;
Write('Исходный массив:');
For i:= 1 to N do
    Begin
    A[i]:=random(99)+1;
    Write(' ',A[i]);
    P(A[i],k);
    End;
WriteLn;
WriteLn('Кол-во простых чисел в массиве: ',k);
End.

Клинопись – это одно из древнейших форм, систем письма. Клинопись формировалась на специальных глиняных табличках. Пока эта табличка была ещё мягкой и податливой на ней с деревянной палочки выдавливали знаки. Как вид письма клинопись возникла в шумерской культуре. Сами значки более всего по значению были близки к иероглифам. Происхождение клинописных значков в Двуречье имеет несколько гипотез. Согласно одной из самых распространенных из них, возникли клинописные значки следующим образом. Хозяева больших земледельческих и скотоводческих наделов вынуждены были вести учет своего имущества. Для этого из глины, которая была распространена в тех краях, делали специальные фигурки, которые назывались токены. Токены лепились в виде животных или домашних птиц, а также в виде зерна, яиц и т.д. Токены складывались в глиняный сосуд, который запечатывался личной печатью хозяина, потому что только он имел доступ к этим знаниям. Далее с развитием человеческого прогресса появился обычай рисовать условное начертание этих токенов на крышке самого глиняного сосуда, а сам сосуд также видоизменился и превратился в простую глиняную табличку. Впоследствии картинки (пиктограммы) все больше и больше несли смысл написанного. Дальнейшее развитие письменности состояло в том, что пиктограммы (знаки-рисунки) превращались в идеограммы, т. е. такие письменные знаки, содержание которых уже не совпадало с их рисуночным образом. Шумерское письмо стало развиваться и в другом направлении. Наряду с идеограммами из пиктограмм стали развиваться и фонограммы (символ означающий звук или сочетание звуков).Вместе с этим менялся и стиль письма шумеров, их нанесение на глиняную табличку были сведены к минимуму, теперь использовалась специальная палочка – «калама» (у этого инструмента был наконечник треугольной формы).

На C++

 

#include <iostream>
using std::cout;

using std::cin;
using std::endl;
#include <cstdlib>
using std::rand;
using std::srand;
#include <ctime>
using std::time;

int main()
{
   int B[4][5];
   int sum[5] = { 0 };
   long product = 1;

   srand(time(0));

   //Инициализировать массива значениями от 0 до 9 и вывести таблицу на экран
   for(int i = 0; i < 4; i++)
   {
      for(int j = 0; j < 5; j++)
      {
         B[i][j] = rand() % 10;
         cout << B[i][j] << ' ';
      }
      cout << endl;
   }
   cout << endl;

   //Записать в одномерный массив сумму эллементов столбца
   for(int i = 0; i < 5; i++)
   {
      for(int j = 0; j < 4; j++)
      {
         sum[i] += B[j][i];
      }
   }

   //Вывести на экран значения одномерного массива
   for(int i = 0; i < 5; i++)
   {
      cout << sum[i] << ' ';
   }
   
   //Вычесление произведения(умножения)
   for(int i = 0; i < 5; i++)
   {
      product *= sum[i];
   }

   cout << "\n\nProduct = " << product << endl;

 

   cin.get();
   return 0;
}