Задача №3

program z3;

label 3,4;

{opsk-21, Lypnyk}

Var M:array[1..15] of integer;

i, n, a, max, min,sum : integer;

ser:real;

begin

writeln('Z#3');

writeln('{opsk-21, Lypnyk}' );

4: writeln('Wvedit kilkist chisel [2..15]');

readln (n);

if n<2 then

goto 4;

if n>15 then

goto 4;

writeln ('Wvedit elementy massivy[-99..99] cherez Enter: ');

for i:=1 to n do

readln (M[i]);

writeln (' zaday chisla');

for i:=1 to n do

writeln (M[i],' ');

writeln;

sum:=0;

max:=M[1];

min:=M[1];

for i:=1 to n do

if max<M[i] then

max:=M[i];

if min>M[i+1] then

min:=M[i+1];

for i:=1 to n do

begin

sum:= M[i]+sum;

end;

ser:= sum/n;

writeln('max= ' ,max);

writeln('min= ' ,min);

writeln('sum= ',sum);

writeln('ser= ' ,ser: 3:2);

writeln;

write('esli vuxid to wvedit 1, esli povtor to wvedit 2');

writeln;

readln (a);

if a=1 then

goto 3;

if a=2 then

goto 4;

readln;

3:end.

Задача №4

Program z4;

{opsk-21, Lypnyk}

uses crt;

label 1,2,3,4,5,6;

var m:array[-99..99] of integer;

i,n,a,b:integer;

begin

begin

writeln('Z#4');

writeln('{opsk-21, Lypnyk}' );

n:=0;

6:writeln('Введіть кількість елементів масиву [1..99]');

readln(n);

if n<1 then

goto 6;

if n>99 then

goto 6;

end;

begin

m[i]:=0;

write(m[i],'');

writeln('Введіть масив');

3:for i:=1 to n do

read(m[i]);

if m[i]<-99 then

goto 3;

if m[i]>99 then

goto 3;

2:case m[i] of

2:n:=n-1;

end;

begin

writeln('1-записувати в масив, 2-видаляти останні записанні в масиві, 3-вивести в рядок дляконтролю записанні в масив числа, 4-вийти з програми.');

readln(b);

if b=1 then

goto 1;

if b=2 then

goto 2;

if b=3 then

goto 3;

if b=4 then

goto 4;

readln;

1:begin case n+1 of 1: n:=n+1 end;

end;

end;

end;

4:end.

Задача №5

Створити програму з обов’язковим використанням масивів, сортувати програму методом сортування (на вибір).

Алгоритм

1. Вводимо проміжок масиву(1..1000) типу byte.

2. Виводимо на екран повідомлення(Введіть кількість елементів масиву).

3. Вводимо з клавіатури кількість елементів масиву.

4. Обнулимо всі змінні масиву.

5. Використовуючи функцію авто заповнення(random) заповнюємо масив.

6. Виводимо ще несортований масив на екран.

7. Використовуючи оператор case присвоюємо числам змінні та записуємо формули для змінних.

8. Переводимо масив на наступний рядок

9. За допомогою цикла з лічильником присвоюємо коміркам масиву значення.

10. Ставимо інтервал між комірками та виводимо відсортований масив на екран.

program z5;

{opsk-21, Lypnyk}

var a:array[1..1000] of integer;

n,e,d,i:integer;

k:integer;

begin

writeln('Z#5');

writeln('{opsk-21, Lypnyk}' );

writeln ('Wvedit kilkist elementy massivy [1..1000]');

read(k);

n:=0;

e:=0;

d:=0;

for i:=1 to k do

begin

writeln('

a[i]:=random(3);

write(a[i]:4);

case a[i] of

0: n:=n+1;

1: e:=e+1;

2: d:=d+1;

end;

end;

writeln;

for i:=1 to n do

a[i]:=0;

for i:=1 to e+n do

a[i]:=1;

for i:=n+e+1 to n+e+d do

a[i]:=2;

for i:=1 to k do

write(a[i]:4);

end.