Program enot;
VAR p: array [1..7,1..9] of integer;
i,j,s:integer;
begin
s:=0;
for i:= 1 to 7 do
for j:= 1 to 9
do p[i,j]:= random (61)-25;
for i:= 1 to 7 do
begin
for j:= 1 to 9 do
begin
if p[i,j]<0 then s:=s+p[i,j];
write(p[i,j]:5);
end;
writeln();
end;
writeln(s);
<span>end.</span>
Уменьшенная копия?
<span>или масштаб</span>
#include <iostream>
using namespace std;
int main() {
int i,n,k;
cout<<"Vvedite chislo elementov massiva: ";
cin>>n;
int a[n];
for (i=0; i<n; i++){
cout<<"Vvedite "<<i+1<<"-e chislo massiva: ";
cin>>a[i];
}
cout<<"Vvedite znachenie k: ";
cin>>k;
int m=0;
for(i=0;i<n;i++) if (abs(a[i])>2*k) m++;
cout<<"Naydeno elementov: "<<m<<"\n";
system("pause");
return 0;
}
<em><u>Тестовое решение:</u></em>
Vvedite chislo elementov massiva: 6
Vvedite 1-e chislo massiva: -7
Vvedite 2-e chislo massiva: 2
Vvedite 3-e chislo massiva: 0
Vvedite 4-e chislo massiva: -5
Vvedite 5-e chislo massiva: 8
Vvedite 6-e chislo massiva: 3
Vvedite znachenie k: 2
Naydeno elementov: 3
Для продолжения нажмите любую клавишу . . .
1) одна из главных составляющих компьютера-процессор
2) Предмет системы вывода информации-монитор
3) одиз из компьютерных языков-паскаль ну или бейсик(бэйсик)
4) Один из основателей майкрософт-Гейтс
5) Предмет для ввода информации-Планшет(ну на котором рисуют пишут и т.п.) можно написать мышка или клавиатура
6) Программа софт защищающая компьютер от вредоносных программ-антивирус