Program gt;
var a:array[1..6]of integer;
i,s:integer;
begin
randomize;
s:=0;
for i:=1 to 6 do
begin
a[i]:=random(101)+20;
write(a[i],' ');
s:=s+a[i];
end;
writeln;
writeln(s);
end.
ДЛЯ ЧЕТЫРЕХЗНАЧНЫХ ЧИСЕЛ:
var x: integer;
begin
writeln ('Введите четырехзначное число.');
read (x);
x:=x mod 10 * 1000 + x div 100 mod 10 * 100 + x div 10 mod 10 * 10 + x div 1000;
writeln ('Число после перестановки цифр:',x);
end.
ДЛЯ ЛЮБЫХ ЧИСЕЛ:
program znanija;
var n,m,c1,cp:integer;
k,i:byte;
begin
write('Введите число.');
readln(n);{например 12345}
cp:=n mod 10;{последняя цифра=5}
n:=n div 10;{число без последней цифры=1234}
m:=n;{запомним его}
k:=0;
while m>9 do{пока не останется 1 цифра}
begin
m:=m div 10;{первая цифра=1}
k:=k+1;{количество разрядов без первого=4}
end;
c1:=m;{запомним первую цифру=1}
for i:=1 to k do
begin
m:=m*10;{повышаем разряд числа, равного первой цифре=1000}
cp:=cp*10;{повышаем разряд последней цифры=5000}
end;
n:=(n-m)*10+c1+cp*10;{получаем число=(1234-1000)*10+1+5000*10=52341}
writeln('Число после перестановки цифр:',n);
end.
Объяснение:
s=0
for i in range (-12 до +12):
if 2%2 == 0:
s=i+s
print (s)
Что значит увеличения и уменьшения информации слабо как то понимаю, примеры вообще простые - Бобер Александр собрал палки хворост и всякую мелочь которая хаотично лежала где то там, и сделал из нее плотину, вполне, кстати говоря, порядочную.
А наоборот и будет ответ на второй вопрос, пускай молния ударить в плотину нашего многоуважаемого Александра, и уже порядочная плотина превращается в мусор разбросанный где то там и слегка горящий.
Что касается последнего пункта, то похоладало, какая нить птица заметила это сообщила стае, и вместе они решили улететь перезимовать это дело...
Ответ:
#include "stdafx.h"
#include <iostream>
#include <windows.h>
using namespace std;
int main()
{
setlocale(LC_ALL, "Russian");
int n = 0, m = 0;
cout << "Введите размерность двумерного массива вида mass[n][m] :" << endl;
cout << "n = ";
cin >> n;
cout << "m = ";
cin >> m;
int **mass = new int* [n];
for (int i = 0; i < n; i++)
{
mass[i] = new int[m];
}
cout << "Заполните массив по столбцам:" << endl;
for (int j = 0; j < m; j++)
{
cout << "Столбец [" << j + 1 << "]: " << endl;
for (int i = 0; i < n; i++)
{
cin >> mass[i][j];
}
}
int buffer = 0;
for (int i = 0; i < n; i++)
{
for (int j = 0; j < m; j++)
{
if (i == j)
{
if (mass[i][j] > buffer)
{
buffer = mass[i][j];
}
}
}
}
cout << "\nНаибольший элемент по главной диагонали: " << buffer << endl;
for (int i = 0; i < n; i++)
{
delete[] mass[i];
}
delete[] mass;
return 0;
}
Объяснение:
Написал в visual studio, все работает, по итогу программа выводит наибольший элемент по главной диагонали. Ввод матрицы производится по столбцам, не забудь про это.