Program Pascal1; uses Crt; const m=4; n=2; var a:array[1..m,1..n] of real; i,j,k:integer; begin ClrScr; Randomize; Writeln('Сформированный масcив'); k:=0; for i:=1 to m do begin for j:=1 to n do begin a[i,j]:=Random(31)-15.0; Write(a[i,j]:6:1); if a[i,j]=10 then Inc(k) end; Writeln end; Writeln('Количество элементов, равных 10: ',k); Write('Нулевые элементы: '); for i:=1 to m do for j:=1 to n do if a[i,j]=0 then Write('a[',i,',',j,'] '); Writeln end.
#include <iostream> using namespace std; int main() { int n, sum,howmuch; sum = howmuch = 0; cout << "Введите количество элементов массива" << endl; cin >> n; int a[n]; for(int i =0; i < n; i++){ cout << "Заполните массив" << endl; cin >> a[i]; }
for(int i = 0; i < n; i++){ if (a[i] < 0) { howmuch++; sum += a[i]; } } cout << "Сумма отрицательных элементов массива:" << sum << endl; cout <<"Количество отрицательных объектов массива" << howmuch << endl; return 0; }
uses Crt;
const
m=4;
n=2;
var
a:array[1..m,1..n] of real;
i,j,k:integer;
begin
ClrScr;
Randomize;
Writeln('Сформированный масcив');
k:=0;
for i:=1 to m do begin
for j:=1 to n do begin
a[i,j]:=Random(31)-15.0;
Write(a[i,j]:6:1);
if a[i,j]=10 then Inc(k)
end;
Writeln
end;
Writeln('Количество элементов, равных 10: ',k);
Write('Нулевые элементы: ');
for i:=1 to m do
for j:=1 to n do
if a[i,j]=0 then Write('a[',i,',',j,'] ');
Writeln
end.
Вариант выполнения: