А что собственно не так? Добавил "program", убрал "uses" - вроде правильно всё работает...
<hr />
program ideone;
var a:array [1..15] of integer;
i,k,s:integer;
begin
randomize;
for i:=1 to 15 do
begin
a[i]:=random (21) -10;
writeln (a[i]:4);
end;
writeln;
s:=0;
k:=0;
for i:=1 to 15 do
if abs(a[i]) mod 10=5 then begin
k:=k+1;
s:=s+a[i];
end;
writeln('k=',k);
writeln('s=',s);
end.
Если это задача из школьной программы по математике, то за неё можно получить "двойку" с пояснением: "Решал задачу, но не правильно списал задание!" ;-)
Решить эту задачу таки возможно, но для её решения не потребуется количество человек, указавших в анкете владение Паскалем.
Чтобы найти количество участников олимпиады, которые программируют только на Паскале, достаточно из общего количества участников олимпиады вычесть количество человек, указавших в анкете, что они владеют Бейсиком:
35 - 22 = 13 пользователей владеют только Паскалем.
Ну, а указанных в условии данных достаточно для нахождения количества участников олимпиады, владеющих и только Бейсиком, и только одним из этих языков программирования, и обоими языками одновременно.
Это смотря для чего Вам он понадобится. Вообще Pascal ABC считается языком програмирования для таких сфер как образование и научная деятельность. Активно поддерживается платформой Microsoft.net
Иногда бывает нужно определить целую часть частного, тогда используем оператор div.
Значение выражения i div j представляет собой математическое частное i/j , округленную в меньшую сторону до значения целого типа. Если j=0, то результат фатальная ошибка.
Например, 307 div 10=30, при обычном делении частное было бы 30.7;
Операция деления посредством mod, возвращает остаток, путем деления двух ее
операндов, т.е. i mod j = i - (i div j)*j
Знак результата операции будет тем же, что и знак i. Если j =0, то результатом будет
фатальная ошибка. 307 mod 10 = 7
program zad1;
var a: integer; b: integer;
begin
writeln ('Vvedite chislo A: ');
readln (a);
writeln ('Vvedite chislo B: ');
readln (b);
if a mod 2 = 0 then writeln ('Chislo A = ', a, ' kratno 2')
else if b mod 2 = 0 then writeln ('Chislo B = ', b, ' kratno 2')
else writeln ('Ni odno iz chisel ne kratno 2') ;
readln;
end.
<hr />
Вторую решите по аналогии (2 заменить на 3).
