program primer;
var a,b,c,d:integer;
begin
writeln ('введите значение для переменной a');
readln(a);
writeln ('введите значение для переменной b');
readln(b);
if a>b then
begin c:=1; d:=2; end
else begin c:=3; d:=4; end;
writeln('c=',c,' ','d=',d);
readln;<span>
end.</span>
1. введите N.
2. цикл for от 1 до N будем вводить 'элементы массива x[i]/
3. в цыкле от 1 до N бедем выводить на экран массив writeln(x[i]) и считаем сумму. если в программе выполнять, то это будет выглядеть так
write('введите N'); readln(n);
for i:=1 to n do begin write('введите ',i,' элемент массива');
readln (x[i]);
end;
sum:=0;
for i:=1 t0 n do begin
write(' ',x[i]);
sum:=sum+x[i];
end;
write('а сумма всех элементов = ',sum);
Для паскаля:
uses CRT;
var a, b: integer;
begin
write (' Введите длину первого катета ');
read (a);
write (' Введите длину второго катета ');
read (b);
write (' Гипотенуза =');
write (sqr(a)+sqr(b));
end.