jekaroikp00z44
31.05.2022 15:10

РЕШИТЬ КОНТРОЛЬНУЮ ПО ИНФОРМАТИКЕ

Нажмите на рекламу ниже и сразу увидите ответ
Популярные вопросы:
Ответ:
Ленабогатова1
08.01.2020 18:02

1:

#include<iostream>

#include<vector>

#include<iterator>

#include<ranges>

using namespace std;

int main()

{

   vector<int> vec;

   int sum=0;

   istream_iterator<int> it{cin};

   istream_iterator<int> end{};

   while(it!=end)

   {

       vec.push_back(*it);

       it++;

   }

   for(int i:vec | views::filter([](int i){return i%2==0;}))

   {

       sum+=i;

   }

   cout<<sum<<endl;

   return 0;

}

2:

#include<iostream>

using namespace std;

int main()

{

   int sum=0;

   for(int i=2;i<=32;i+=3)

   {

       sum+=i;

   }

   cout<<sum<<endl;

   return 0;

}

Объяснение:

0,0(0 оценок)
Ответ:
asarapik
18.01.2021 15:51
Const nx=20;
var i,j,n,s:integer; A,B:array[1..nx,1..nx] of real;min,t:real;
z:array[1..nx] of real;
begin
min:=100;
write('Введите размер матрицы n');Readln(n);
for i:=1 to n do begin
for j:=1 to n do begin
A[i,j]:= sin(j)*(1-sin(i));
write(A[i,j]:9:4);
if min > A[i,j] then begin min:= A[i,j];s:=i;end;
end;writeln;end;writeln;
i:=s;
for j:=1 to n do begin
z[j]:=A[i,j];write(z[j]:9:4);end;
for i:=1 to n do begin
for j:=2 to n do begin
if z[j-1]> z[j] then begin
t:=z[j-1];z[j-1]:=z[j];z[j]:=t
end;end;end;
writeln;
i:=s;
for j:=1 to n do begin
A[i,j]:=z[j];write(z[j]:9:4);end;
writeln;writeln;
for i:=1 to n do begin
for j:=1 to n do begin
B[i,j]:= A[i,j];write(B[i,j]:9:4);end;
writeln;end;
writeln;write('min = ',min:9:4, '   I = ', s);
end.
0,0(0 оценок)
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota Оформи подписку
logo
Начни делиться знаниями
Вход Регистрация
Что ты хочешь узнать?
Спроси ai-бота