25. Ойын программалау ортасында нысандар

senresinceaparanian құжатты жіберу тәсілі​

Var
a:integer;
begin
write('Введите номер месяца: ');
readln(a);
 case a of
    1: writeln('Январь.31 день');
    2: writeln('Февраль.29 дней');
    3: writeln('Март.31 день');
    4: writeln('Апрель.30 дней');
    5: writeln('Май.31 день');
    6: writeln('Июнь.30 дней');
    7: writeln('Июль.31 день');
    8: writeln('Август.31 день');
    9: writeln('Сентябрь.30 дней');
    10: writeln('Октябрь.31 день');
    11: writeln('Ноябрь.30 дней');
    12: writeln('Декабрь.31 день');
end;
end.

2.
var
a:integer;
begin
writeln('Введите число: ');
readln(a);
case a of
1: write(a, ' Копейка');
2..4: write(a, ' Копейки');
5..20: write(a, ' Копеек');
end;
end.

1)
const n=20; 
var
  a:array[1..n] of integer;
  i,j,max:integer;
begin
Randomize;
Writeln('Исходный массив:');
for i:=1 to n do begin
  a[i]:=Random(21)-10;
  Write(a[i]:4)
end;
Writeln;
max:=-10;
for i:=1 to n do
 if (a[i]<0)and(a[i]>max) then max:=a[i];
Writeln('max = ',max);
end.

Пример:
Исходный массив:
  10  -8  10  -9   6   7   6   0  -4  10  -3   9   2  10   5   1   8  10   5   4
max = -3

2)
const n=15; 
var
  a:array[1..n] of integer;
  i,j:integer;
begin
Randomize;
Writeln('Исходный массив:');
for i:=1 to n do begin
  a[i]:=Random(21)-10;
  Write(a[i]:6)
end;
Writeln;
for i:=1 to n do
 if a[i]<=3 then a[i]:=a[i]*a[i]*a[i];
Writeln('Измененный массив:');
for i:=1 to n do Write(a[i]:6);
Writeln;
end.

Пример:
Исходный массив:
    -1    -4     9    -2    10    -9     6    -6     5    -1    -2     3     1    -8    10
Измененный массив:
    -1   -64     9    -8    10  -729     6  -216     5    -1    -8    27     1  -512    10