Одномерный массив 1. Составьте программу ввода и вывода массива: 5, -2, 3, -6, 7, 9, -4, 8, 1, 2, 7, -3. 2. Составьте блок-схем
ТарасоваКсю
3)
const n=10;
var a:array [1..n] of integer; r,i:integer;
begin
r:=1;
for i:=1 to n do begin
a[i]:=r; inc(r,2); end;
for i:=1 to n do
write(a[i],' ');
end.
Var a,b,y:integer;
begin
writeln('Введите 2 числа a и b'); readln(a,b);
if a=b
then y:=1
else if a>b
then y:=2
else y:=3;
writeln('y= ', y);
end.
(не X2) и (X1 или (X2 и не X1)) = (не X2) и (X1 или X2) = X1 и не X2
1 кбайт, 1000 байтов, 1024 бита, 1 байт, 1 бит