Program qq;
var n,i:byte;
x:integer;
min,max : integer;
begin
max = -32 768;
min = 32 767;
writeln ('Введите сколько чисел нужно ввести');
readln (n);
for i:= 1 to n do begin
writeln ('Введите' , i , '-ое число');
readln (x);
if x>max then max:=x ;
if x<min then x : = min;
end;
writeln ('Разница между наибольшим и наименьшим числам равна' , max-min);
end.
<em>// PascalABC.NET 3.2, сборка 1362 от 14.12.2016</em>
<em>// Внимание! Если программа не работает, обновите версию!</em>
begin
var a:=ArrRandom(10,-45,45); a.Println;
Swap(a[0],a[9]); a.Println
end.
<u>Пример</u>
32 -1 21 17 13 11 -7 14 -7 4
4 -1 21 17 13 11 -7 14 -7 32
Program z1;
var a:array[1..10] of byte;
i,j,k,r:byte;
begin
randomize;
for i:=1 to 10 do begin
a[i]:=random(100);
write(a[i],' ');
a[i]:=(a[i] div 10)+(a[i] mod 10)
end;
k:=1;writeln('');
for j:=0 to 18 do begin
i:=k;
while i<=10 do begin
if a[i]=j then begin
r:=a[k];a[k]:=a[i];a[i]:=r;
write(a[k],' ')
end;
i:=i+1
end
end;
readln
end.
Прикрепляю 2 фотографии. На первой написана задача про стоимость продуктов, но второй - задача с часами
Create database book
Use book
Create table book
Id auto_increment
'жанр' varchar(60) not null,
'автор' varchar(60) not null,
'год' Int not null,
'коменти' varchar(60) ;
Insert (жанр, автор, год, коменти)
Into(бла, бла, 123, пмио);