Переменная C для сохранения значения X.
Setlocale(LC_ALL,"Russian") для русского языка в консоли(на некоторых ПК русские символы отображаются неправильно).
System("pause") для ожидания нажатия клавиши, перед закрытием окна.
Алгоритм вкратце:
Вводим X, Y;
Если X>Y то, C=X, X=Y, Y=C;
Вывод X,Y;
Будут вопросы - обращайся)
Const m=5; n=6;
var
a:array[1..m,1..n] of integer;
b:array[1..m] of integer;
i,j,min:integer;
begin
Randomize;
writeln('Исходный массив:');
for i:=1 to m do
begin
for j:=1 to n do
begin
a[i,j]:=random(50);
write(a[i,j]:4);
end;
writeln;
end;
for i:=1 to m do
begin
min:=a[i,1];
for j:=2 to n do
if a[i,j]<min then min:=a[i,j];
b[i]:=min;
end;
writeln('Полученный массив:');
for i:=1 to m do write(b[i]:4);
writeln;
end.
Пример:
Исходный массив:
44 30 35 16 47 3
30 15 23 40 15 46
46 11 2 3 16 40
19 17 8 22 10 25
41 23 9 47 7 36
Полученный массив:
3 15 2 8 7
№1
Блок-схема в среде программирования-3
Ввод данных и исправление ошибок -4
Вывод-5
№2
В паинте нарисовал
№3
program z1
var r;d: real;
begin
readln (r);
d=2r;
writeln (d);
end.
№5
6-12
7-14
Var i,N1,N2,M,j:integer;
begin
writeln('Введите число N1');Read(N1);
writeln('Введите число N2');Read(N2);
M:= abs(n2 - n1)+1;j:=n1;
for i:=1 to M do begin
writeln(i:3,j:3);
j:=j + 1;end;<span>end.</span>
