//Pascal ABC.NET Версия 2.2 Сборка 790 var ma:array[1..10,1..10] of integer; ar:array[1..10] of integer; i,j,s:integer; begin; randomize; writeln('Matrix:'); for i:=1 to 10 do begin; writeln; for j:=1 to 10 do begin; ma[i,j]:=random(-10,10); write(ma[i,j]:5); if ma[i,j]<0 then ar[i]+=ma[i,j]; end; end; writeln; writeln('Final array:'); for i:=1 to 10 do writeln(ar[i]); end.
var ma:array[1..10,1..10] of integer;
ar:array[1..10] of integer;
i,j,s:integer;
begin;
randomize;
writeln('Matrix:');
for i:=1 to 10 do
begin;
writeln;
for j:=1 to 10 do
begin;
ma[i,j]:=random(-10,10);
write(ma[i,j]:5);
if ma[i,j]<0 then ar[i]+=ma[i,j];
end;
end;
writeln;
writeln('Final array:');
for i:=1 to 10 do
writeln(ar[i]);
end.
Пример вывода:
Matrix:
9 -1 3 -10 6 3 -9 8 5 -6 -4 4 -6 7 7 7 -10 4 -2 3 -9 -3 10 -9 2 -7 1 -8 -8 -8 -5 -4 2 -5 -9 -9 3 6 7 -5 3 8 10 0 -9 4 -3 6 -10 -9 9 10 -8 1 -1 2 -1 1 -2 3 -8 10 5 3 10 -10 -8 9 6 6 -6 -5 8 -7 -10 -7 -2 -1 -10 9 7 5 -9 -10 -6 -5 -7 -9 7 -1 2 -9 -2 -6 -8 4 -7 -3 1 -9
Final array:
-26
-22
-52
-37
-31
-12
-26
-48
-47
-44
#include "pch.h"
#include <iostream>
using namespace std;
int main()
{
setlocale(LC_ALL, "rus");
const int dlinna = 14, dlinna2 = 9 ;
int arr[dlinna],chetnie = 0;
cout << "Введите значения массива на 14 элементов!" << endl;
for (int i = 0; i < dlinna; ) {
cin >> arr[i];
if (arr[i] % 2 == 0) {
chetnie++;
}
i++;
}
cout << "Количество четных элементов массива = " << chetnie << endl << endl;
int arr2[dlinna2];
int min= 2147483647, max=-2147483647;
cout << "Теперь введите значения массива на 9 элементов !" << endl;
for (int j = 0; j < dlinna2; j++) {
cin >> arr[j];
if(arr[j] < min) {
min = arr[j];
}if (arr[j] > max) {
max = arr[j];
}
}
cout << "Минимальный элемент массива = " << min << endl;
cout << "Максимальный элемент массива = " << max << endl;
}