Задача 4.
Мовою програмування Паскаль(з обовязковим використанням масивів)зробити програму, котра повинна:
1)спочатку онулити масив (на 20 елементівцілих чисел з дозволеним значенням -99 до 99 включно) та комірку, в котрій автоматично зберігаеться кількість записаних оператором чисел в масиві; нові значення дописуються завжді у "ліві" вільні елементу масиву, а зтирають завжди задану кількість останніх записаних елементів;
2) запропонувати користувачу(в текстовій формі, на моніторі) обраті одну з 4х можливих дій.(1-намір записувати в масив, 2- намір видаляти останні записанні в масиві, 3-наказ вивести в рядок дляконтролю записанні в масив числа, 4- наказ вийти з програми);
3)в разі бажання записувати в масив програмаповина запропонувати користувачу задати кількість чисел, порадивши можливе (напр. від 1 до 15 при вже зайнятих 15-ти числах з лівого початкового краю масиву), при здійснюванні вхідного контролю на прийнятний діапазонах відповіді про кількість;
4) в разі бажання зтирати з масиву програма повина запропонувати користувачеві задати кількість чисел, яку треба зтирати, порадивши можливе (напр. від 1 до 5 при вже зайнятих 5-ти чисел з лівого початкового краю масиву), при здійсненні вхідного контролю на прийнятий діапазон відповіді на кількість;
5)в разі наказу вивести в рядок для контролю записанні вхідного контролю на прийнятий діапазон відповіді про кількість;
6) тількі в разі наказу припинення роботи програма повинна попередити. що завершує роботу по вимозі користувача і потім припинити роботу, в усіх інших випадках після виконання еаказу користувача (щоб записувати, аба видаляти, або вивести елементи масиву) програма повина повторно запропонувати користувачу одну з 4-х можливих дій (1-намір записувати в масив, 2-намір видаляти останні записанні в масив ч мсла, 3-наказ вивести в рядок для контролю записанні в масив числа, 4-наказ вийти з програми.)
Порада до завдання для вправ Z#4:можливе використання оператора CASE, або декілька операторів IF
program z4;
uses crt;
label 1,2,3,4,5,6;
var m:array[-99..99] of integer;
i,n,a,b:integer;
begin
begin
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;
1:begin case n+1 of 12: 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;
end;
end;
end;
4:end.
