//на vs 2010 решается так, в других средах разработки может нужно к заголовкам добавить .h или убрать подключение пространства имен std : (console application)
#include < iostream> #include < stdlib.h> #include < time.h> #include < conio.h> using namespace std; void print(int m, int ** matr) // функция печати матрицы на экран{ for(int i = 0; i< m; i++) { for(int j = 0; j< m; j++) { cout.width(4); cout< < matr[i][j]; } cout< < endl; }}void search_and_print(int x, int **m) //функция поиска элементов с их сортировкой и выводом на экран{ int razmer = ((x*x) - x)/2; int *mas = new int [razmer]; int y = x - 1; float srednee = 0; int index = 0; for (int j = 0; j< y; j++) { for(int i = 0; i< (x-1); i++ ) { mas[index] = m[i][j]; index++; } y--; } for(int i = 0; i< (razmer-1); i++) //сортировка методом выбора. x-1 раз ищем наименьший элемент. { //принимаем за наименьший первый элемент из расматриваемых: int min = i; //поиск минимального элемента из : for(int j = i+1; j< razmer; j++) { //если нашли меньший элемент, запминаем его номер: if(mas[j]< mas[min]) min = j; } //обмен элементов: int a = mas[i]; mas[i] = mas[min]; mas[min] = a; } cout< < "\nuporyado4enniy massiv: \n"; //вывод и суммирование элементов отсортированного массива для среднего for(int i = 0; i< razmer; i++) { cout< < mas[i]< < ends; srednee += mas[i]; } //поиск арифметичесгоко реднего} srednee = srednee/razmer; cout< < "\nsrednee: "< < srednee; delete [] mas; }void main(){srand ((unsigned)time(null)); int x; cout< < "vveditrazmer matritsi po gorizontaly i po vertikaly: \n"; cin> > x; int** matr; matr = new int* [x]; //безопасный способ for(int i = 0; i< x; i++) // динамического { matr[i] = new int[x]; // двумерного массива. for(int j =0; j< x; j++) //заполняем матрицу { matr[i][j] = rand()%10-5; } //числами от -5 до 5 } cout< < "ishodnaya matritsa: \n"; print(x,matr); search_and_print(x,matr); _getch(); delete [] matr; }
if (n mod 2 = 0) and (n div 100 < 1) and (n > 9) then write('данное число является четным двузначным') else if (n div 100 < 1) and (n > 9) then write ('данное число не четное двузначное');
end.
№2
program z2;
var a, b, c, k: integer;
begin
k: =0;
writeln ('введите числа a, b и c: ');
readln(a,b,c);
if a< 0 then k: =k+1;
if b< 0 then k: =k+1;
if c< 0 then k: =k+1;
write('количество отрицательных чисел: ',k)
end.
Ответ дал: Гость
max: =a[1];
for i: =2 to 10 do
begin
if a[i]> max then
max: =a[i];
c: =i;
end;
min: =a[1];
for i: =2 to 10 do
begin
if a[i]< min then
min: = a[i];
d: =i;
end;
a[c]: =x;
a[c]: =a[d];
a[d]: =x;
это кусочек программы в паскале для нахождения максимального элемента на скоко я помню
Популярные вопросы