-1

Помогите разобраться с Паскалем. Вот я сделал начало программы и сказали, чтобы закончить её, нужно розобраться с "mod", "div" помогите, пожалуйста... Вот то, что я сделал:

Program mass;
Uses crt;
var A:array [1..100] of integer;
i,n,m:integer;
begin
     clrscr;
     writeln('введіть кількість елементів масивів');
     read(n);
     for i:=1 to n do
         begin
              A[i]:=random(101)-60;
              write(A[i],' ');
         end;
     writeln;
     m:=0;
     for i:=1 to n do
     if A[i]<0 then begin
                         m:=i;
                         break;
                    end;

write(A[m],' ','його порядковий номер = ',m);
readkey;
end.

Вот условие:

Среди элементов массива, которые размещены после его первого отрицательного элемента, найти количество таких, которые заканчиваются не больше за 5. Буду благодарен.

1
  • я из Днепропетровска, украинский знаю отлично, но в смысл этой хрени " не больше за 5" я все равно въехать не могу... 23 ноя 2011 в 10:55

1 ответ 1

0

Если я правильно поняла, то последняя цифра не больше 5 должна быть. А то в Украине трудности с русским.

for i:=m+1 to n do
    if a[i] mod 10 <=5 then writeln(a[i]);
1
  • 1
    проблемы не в Украине, а на Украине. Тем более, что даже на Украине их нет-проблемы у автора темы.
    – sudo97
    22 ноя 2011 в 15:12

Ваш ответ

By clicking “Отправить ответ”, you agree to our terms of service and acknowledge you have read our privacy policy.

Всё ещё ищете ответ? Посмотрите другие вопросы с метками или задайте свой вопрос.