Program output1;
var M:array [1..100] of integer; {ввод целочисленной переменной M, связанная с массивом}
n,i:integer; {ввод целочисленных переменных n,i}
begin
write('Введите количество элементов массива: '); {ввод кол-ва элементов массива}
readln(n);
for i:=1 to n do {начало цикла for с шагом = 1}
readln(M[i]); {считывание переменной M[i]}
writeln('Введённый массив: '); {вывод массива M[i] на печать}
for i:=1 to n do
writeln(M[i]);
end.
//Это экспериментальное решение, не воспринимайте всерьёз
var ar:array[1..15] of integer;
i:integer;
begin;
var i1:=1;
while i1<=15 do
begin;
var ar1:=ArrRandomInteger(4,1,20);
sort(ar1);
ar[i1]:=ar1[1];
ar[i1+1]:=ar1[2];
ar[i1+2]:=ar1[3];
writeln(ar1[1]:4,ar1[2]:4,ar1[3]:4);
i1:=i1+3;
end;
writeln('Final array:');
for i:=1 to 15 do
write(ar[i]:4);
<span>end.</span>
Товар это все то што можно продать, продать можно то што хотят купить.
Информация это в том числе знания.
Знание как сделать то или другое, формулы сплавов стали, пропорции градиентов в еде или лекарствах, методы добывания ископаемых, методы очистки. Бесспорно все это можно продать и стоит порой больших денег, потому что на них можно заработать еще больше денег
Это один из примеров
Учеба стоит не дешево, а это ничто иное как процесс получения и усвоения знаний/информации
Стратегические потому <span>ч</span>то на основе информации строится стратегия дальнейших действий
<em>// PascalABC.NET 3.2, сборка 1437 от 03.05.2017</em>
<em>// Внимание! Если программа не работает, обновите версию!</em>
begin
var n:=ReadlnInteger;
Writeln(ReadSeqInteger(n).Where(i->abs(i) mod 10=2).Max)
end.
<u>Пример</u>
18
-11 12 -4 -35 -32 -16 -23 -22 31 -10 2 -29 47 49 42 47 31 -44
42
Var a,b:integer;
begin
writeln('Введите число');
readln(a);
b:=(a mod 10)*10+(a div 10);
writeln('Ответ');
writeln(b);
end.
