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

Ребятааа, кто шарит в Basic? Нужно написать достаточно сложную программу

Показать ответ
Ответ:
Kymir1
Kymir1
01.05.2022 07:06

Примечание: библиотека locale.h используется для корректного изображения русского языка в консоли. библиотека stdlib.h необходима для использования функции "system(pause)", которая используется в конце программы. Не позволяет консоли после выполнения основной программы закрыться.

Я к тому, что фактически, используется только iostream

#include "iostream"


#include "stdlib.h"


#include "locale.h"


using namespace std;



int main(){


setlocale(LC_ALL, "russian");


int n, m;


cout << "Введите кол-во строк(n): "; cin >> n;


cout << "Введите кол-во столбцов(m): "; cin >> m;


int A[n][m];


for(int i = 0; i < n; i++){


 for(int j = 0; j < m; j++){


  cout << "Элемент [" << i << "]" << "[" << j << "]  =  "; cin >> A[i][j];


 }


}


cout << "Вывод массива" << endl;


for(int i = 0; i < n; i++){


 for(int j = 0; j < m; j++){


    cout << " " <<A[i][j] << " ";  

 }


 cout << endl;


}


for(int i = 0; i < m; i++){


 int min = A[0][i];


 int max = A[0][i];


 for(int j = 1; j < n; j++){


    if(min > A[j][i]){


     min = A[j][i];


    }else if(max < A[j][i]) max = A[j][i];


 }


 cout << "Столбец " << i+1 << " содержит (min, max): " << "(" << min << "," << max << ")";  

 cout << endl;


}


system("pause");


return 0;


}

0,0(0 оценок)
Ответ:
vefremka
vefremka
12.08.2022 12:23

1.

const n=5;

var a:array [1..n] of integer;

i:integer;

begin

write('       Исходный массив: ');

for i:=1 to n do

begin

a[i]:=random(21)-10;

write(a[i]:3,' ');

if a[i] mod 2 = 0 then a[i]:=a[i]-3

end;

writeln;

write('Преобразованный массив: ');

for i:=1 to n do write(a[i]:3,' ')

end.

2.

const n=8;

var a:array [1..n] of integer;

i,s:integer;

begin

write('Массив: ');

for i:=1 to n do

begin

a[i]:=random(21)-10;

write(a[i]:3,' ');

s:=s + a[i]

end;

writeln;

write('Сумма всех элементов массива: ',s)

end.

3.

const n=7;

var a:array [1..n] of integer;

i,p:integer;

begin

p:=1;

write('Массив: ');

for i:=1 to n do

begin

a[i]:=random(21)-10;

write(a[i]:3,' ');

if a[i] > 0 then p:=p * a[i]

end;

writeln;

write('Произведение положительных элементов массива: ',p)

end.

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