FreePascal.ru

Снег Север писал(а):Потому, что в запросе "write your name and grade" просят сначала ввести имя, а потом оценку, а не наоборот

Издеваешься, да ?

Есть 2 массива, один string другой integer.Почему надо вводить вначале string а потом integer, а не наоборот ?

type

arr1=array[1..5] of string;
arr2=array[1..5] of integer;

var
a:arr1;
b:arr2;
Begin

For i:=1 to 5 do
begin
writeln('write ...

Можно ли создать уникальный индекс? Если да, то как?

Имеется в виду
уникальность (i) , а не name!!

А если написть не будет точнее??

enot777 Теперь понятно , спасибо!

vitaly_l Спасибо большое!

vitaly_l , а как же он проверяет первый раз ? Когда мы еще не знаем b[1]? ( Сразу в (if b[j]=element then ) идёт false?)

vitaly_l А как работает For j:=1 to i ?
ТАК??

Oбъясните пожалуйста как работает REPEAT UNTIL!
program ex;
const a=10;
type
arr=array[1..a] of integer;

var
b : arr;
element : integer;
i, j, isFound : integer;
Begin
for i:=1 to a do
begin
repeat
Write('Введите ',i,'-й элемент: ');
ReadLn(element ...

Объясните пожалуйста как вообще работает второй IF.


program ex7;

var
a,b:integer;

function multiple(num1,num2:integer):boolean;


begin
if (num1 mod num2)=0 then
multiple:=true
else
multiple:=false;
end;

begin
writeln('put 2 numbers');
readln(a,b);

if multiple(a,b ...