Массив вводится с клавиатуры через пробел 15 элементов
var
a:array[1..15]of integer;
i,j,buf:integer;
begin
for i:=1 to 15 do
read(a[i]);
for i:=1 to 14 do
for j:=i+1 to 15 do
if (a[i]<>0)and(a[j]<>0) then
if a[i]>a[j]then
begin
buf:=a[i];
a[i]:=a[j];
a[j]:=buf;
end;
writeln;
for i:=1 to 15 do
write(a[i]:4);
end.
Var
a : array [1..42] of integer;
sum : integer;
i : byte;
begin
randomize;
for i := 1 to 42 do begin
a[i] := random(30) + random(20);
write(a[i], '|');
sum += a[i];
end;
writeln();
if sum >= 1000 then writeln('Число четырехзначное! Всего: ', sum)
else
writeln('Число НЕ четырехзначное! Всего: ', sum)
<span>end.
----</span>
массив заполняется случайным образом
1. v := (10-b)/(15-sqr(b));
2. k = 88
3. a = 8 b = 16
4. x = 15 y = 8
и правильно писать либо "на Паскале" либо "на языке Паскаль", а "на языке Паскале" пишут только очень безграмотные люди :(
Тут через оператор case нужно указывать вручную, ну я пока что легких путей не вижу. Легкая программа, но замудренная..
Пример:
case a of
01.02.98 : writeln ('1 февраля тысяча девятьсот девяносто восьмой год');
02.02.98 : writeln (2 февраля тысяча девятьсот девяносто восьмой год');
Тут дата : writeln ('Тут что выводить');
итд
end;