const N = 10;
var
a: array[1..N] of integer;
i: integer;
begin
write('До замены: ');
for i := 1 to N do begin
a[i] := random(100);
write(a[i], ' ');
end;
writeln;write('После замены: ');
for i := 1 to N do begin
if(a[i] mod 2 = 0)then a[i] := a[i] * (-1);
write(a[i], ' ');
end;
end.
Адрес или путь к файлу
адрес файла в файловой системе операционной системе
пример
c:\windows\system32\etc\hosts
где
с: - диск
windows\system32\etc\ -путь к файлу
hosts - сам файл
If (1<x) and (x<2)
then begin x:=x+1; y:=0; end
else begin x:=0; y:=y+1; end;
Можно создать два списка : вопросы и ответы и с помощью цикла обходить