var a:array[1..100] of integer;
s,i: integer;
begin
for i:=1 to 10 do begin
write('a[',i,'] = ');
readln(a[i]);
end;
for i:=1 to 10 do begin
if a[i] mod 3 = 0 then begin
s:=s+a[i];
end; end;
writeln('summa chisel kratnx 3 = ', s);
readln;
end.
Ну как чего не хватает... У тебя в цикле for несколько операций (Счетчик и вывод) - для этих моментов (Много операций в цикле) используется begin end;
Var A,B,V:integer;
begin
readln(A,B,V);
if (A>B) and (A>V) then
writeln('Антон старше')
else if (B>V) and (B>A) then
writeln('Борис старше')
else if (V>B) and (V>A) then
writeln('Виктор старше')
end.<span>
</span>
Очистка к примеру грязную воду очищают это фильтрация
И началась слепая вайна между памятью и процом.проц соображал но забывал свои ходы. а память смотрела и запоминала врага. я думаю проц.