//PascalABC.NET (версия 3.1, сборка 1210 от 29.03.2016) var a: array of integer; i, n, m: integer; function simple(x:integer): boolean; var i: integer; begin Simple := false; if x < 2 then exit; if x mod 2 = 0 then exit; i := 3; while i <= sqrt(x) do begin if x mod i = 0 then exit; i +=2; end; Simple := true; end;
begin write('Количество элементов массива :');readln(m); SetLength(a, m); while n <= m - 1 do begin if simple(i) then begin a[n] := i; n +=1; end; i +=1; end; a.println; end.
#include <iostream>
#include <iomanip>
using namespace std;
int main()
{
int n = 3;
double a[n][n];
// исходный массив a
for (int i = 0; i < n; i++)
{
for(int j = 0; j < n; j++)
{
a[i][j] = 0.1 * i - j;
cout << fixed << setw(5) << setprecision(1) << a[i][j];
}
cout << endl;
}
// получение и вывод массива b
double s, b[n];
cout << endl;
for (int j = 0; j < n; j++)
{
s = 0;
for (int i = 0; i < n; i++)
s += a[i][j];
b[j] = s;
cout << fixed << setw(5) << setprecision(1) << b[j];
}
cout << endl;
return 0;
}