В
Все
М
Математика
А
Английский язык
Х
Химия
Э
Экономика
П
Право
И
Информатика
У
Українська мова
Қ
Қазақ тiлi
О
ОБЖ
Н
Немецкий язык
Б
Беларуская мова
У
Українська література
М
Музыка
П
Психология
А
Алгебра
Л
Литература
Б
Биология
М
МХК
О
Окружающий мир
О
Обществознание
И
История
Г
Геометрия
Ф
Французский язык
Ф
Физика
Д
Другие предметы
Р
Русский язык
Г
География
vlada3108
vlada3108
03.03.2023 10:02 •  Информатика

Выполните прокрутку программы n_14 (Я сам не знаю что это объясните

Показать ответ
Ответ:
aisylu0706
aisylu0706
19.10.2020 16:12

#include <iostream>

#include <fstream>

#include <cmath>

using namespace std;

int main()

{

int a[5][5] = { 0 }, i, j, s, b[5] = { 0 };

double p;

ifstream f("input.txt");

if (!f.is_open())

 cout << "error";

else

{

 for (i = 0; i < 5; i++)

  for (j = 0; j < 5; j++)

   f >> a[i][j];

}

f.close();

s = 0;

for (i = 0; i < 5; i++)

 if(a[i][i]<0)

  s += a[i][i];

cout << "sum=" <<s<<endl;

p = 1;

for (int j = 0; j < 5; j++)

 p *= 2*sin(abs(a[3][j]))+0.3*j;

cout << "P=" << p << endl;

s = 0;

for (j = 0; j < 5; j++)

{

 for (i = 0; i < 5; i++)

  if(a[i][j]>0)

   s += a[i][j];

 b[j] = s;

 s = 0;

}

cout << "massiv b: ";

for (i = 0; i < 5; i++)

 cout << b[i] << " ";

return 0;

}

0,0(0 оценок)
Ответ:
dasha12328
dasha12328
19.08.2022 01:12

===== PascalABC.NET =====

1)

begin

 var a := ArrRandom(10, -80, 79);

 a.Println;

 var (j, k) := (-1, 0);

 for var i := 0 to a.High do

   if a[i].IsEven then

   begin

     k += 1;

     if k = 5 then

     begin

       j := i;

       break

     end  

   end;

 if j = -1 then

   Println('Нет достаточного числа четных элементов')

 else

 begin

   a[j] := Sqr(a[j]);

   a.Println

 end

end.

2)

begin

 var a := ArrRandom(10, -80, 79);

 a.Println;

 var imax := a.IndexMax;

 a[imax] -= 100;

 Swap(a[imax], a[a.High]);

 a.Println

end.


Дан одномерный массив т, созданный генератором случайных чисел из диапазона -80 до 79, размерности 1
Дан одномерный массив т, созданный генератором случайных чисел из диапазона -80 до 79, размерности 1
0,0(0 оценок)
Популярные вопросы: Информатика
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota Оформи подписку
logo
Начни делиться знаниями
Вход Регистрация
Что ты хочешь узнать?
Спроси ai-бота