Program god_Japan; var y, y1: Integer; color : Integer; beast : Integer; begin Write('Введите год'); ReadLn(year); year1 := ((year - 1984) mod 60 + 60) mod 60; beast := year1 mod 12; color := (year1 div 12) mod 5; Write(year, ' - год '); if beast in [2, 3, 4] then case color of 0: Write('зеленого'); 1: Write('красного'); 2: Write('желтого'); 3: Write('белого'); 4: Write('черного'); end else case color of 0: Write('зеленой'); 1: Write('красной'); 2: Write('желтой'); 3: Write('белой'); 4: Write('черной'); end; Write(' '); case beast of 0: Write('Крысы'); 1: Write('Коровы'); 2: Write('Тигра'); 3: Write('Зайца'); 4: Write('Дракона'); 5: Write('Змеи'); 6: Write('Лошади'); 7: Write('Овцы'); 8: Write('Обезьяны'); 9: Write('Курицы'); 10: Write('Собаки'); 11: Write('Свиньи'); end; WriteLn(); end.
var a,i,k:integer;
arr:Array[1..10] of integer;
begin
randomize;
for i:= 1 to 10 do
begin
a:=random(1,20);
arr[i]:=a;
end;
k:= arr[1];
for i:= 1 to 10 do
begin
k:= k - arr[i];
end;
for i:= 1 to 10 do
write(arr[i], ' ');
writeln();
writeln('Разность чисел - ',k);
end.
Объяснение:
первый цикл заполняет массив случайными целыми числами
второй вычисляет разность
третий нужен для вывода массива (необязательно но для наглядности)