Для заполнения значений Y:
в ячейку B4 записать значение 1,5;
выделить диапазон B3:B4;
используя маркер автозаполнения протянуть на вниз на нужное число строк.
Для заполнения значений Z:
в ячейку C4 записать значение -0.1;
выделить диапазон C3:C4;
используя маркер автозаполнения протянуть на вниз на нужное число строк.
Var a: integer;
begin
readln(a);
if (a>5) then a:=a*2;
writeln(a);
readln();
end.
Программа может выглядеть такЖ
uses crt;
const n=4;
type Mas=array [1..n] of real;
Var A: Mas;
i: integer;
Sum, Sred: real;
Begin
ClrScr;
for i:=1 to n do
begin
Write('A[',i, ']=');
ReadLn(A[i]);
Sum:=Sum+A[i];
end;
Sred:=Sum/n;
WriteLn ('Sred = ', Sred:5:2);
ReadLn;
end.
А) меню
б)пуск
в)главного меню
г)окно программы