Десятичное число 24 или 11
Var max,min,i,s:integer;
mas:array[1..25] of integer;
begin
randomize;
write('Введите диапазон: '); readln(max,min);
if(min>max) then begin
max:=max+min;
min:=max-min;
max:=max-min;
end;
for i:=1 to 25 do
mas[i] := min + random(max-min+1);
for i:=1 to 25 do begin
write(i,'-ый элемент: ',mas[i]);
if((mas[i] mod 5) = 2) then begin s:=s+1; writeln('+'); end
else writeln();
end;
write('Сумма элементов, которые при делении на 5 дают остаток 2: ',s);
end.
Тем что существуют разные программы выполняющий разный тип задач и для каждый из них нужно, что то свое
Я не много не поняла
Sori I m
В чем же дело, идем в Паскаль, набираем программу, запускаем, сотрим на результат. Программа выдает значение первого элемента массива A[1]:=(mas[9]-mas[1])*mas[5];