Program data ;
Uses CRT;
var n:integer;
begin
ReadKey;
Writeln('3 июля');
<span>end.</span>
Program Mas;
Var a:array[1..100] of integer;
i, n: integer;
Begin randomize;
writeln('Введите размерность массива',n);
readln(n);
for i:=1 to n do
a[i]:=random(45)-1; readln;
for i:=1 to n do
begin if a[i]>15 then
write(' ',a[i]);
end;
readln;
End.
1 PascalВыделить код
2uses crt;
3var a,b,x,y,z:integer;
4begin
5clrscr;
6writeln('Введите числа A,B');
7readln(a,b);
9x:=a+b;
10y:=a-b;
11z:=a*b;
12writeln(x);
13writeln(y);
14writeln(z);
15end.
В документе смотри.
_________________
Var
i,j:integer;
a,b:array[1..10]of integer;
begin
writeln('Исходный массив: ');
for i:=1 to 10 do
begin
a[i]:=random(10);
write(a[i],' ');
end;
writeln;
j:=1;
writeln('Измененный массив: ');
for i:=10 downto 1 do
begin
b[j]:=a[i];
write(b[j],' ');
j:=j+1;
end;
<span>end.</span>