var A:array[1..10] of integer;
i,k:integer;
begin
k:=0;
for i:=1 to 10 do
if (a[i]>0) and (a[i] mod 3=0) then k:=k+1;
writeln ('k=',k);
readln;
end.
помоему так)
Ну я не знаю я такого еще пока что не знаю ты скажешь зачем
я писал тебе а я хз
Боря из Омска
Витя из Москвы
Гриша из Санкт-Петербурга
Егор из Кирова
Думаю так
Нет, в схеме масса (я насчитал 3) ошибки.
1) 2 безусловных ветвления из одного места не могут быть
2) ромбик как условный опоератор должен иметь 2 исзодящих стрелки
3) третий прямоугольник лишён исходящей стрелки, она должна вести в блок КОНЕЦ
Program pr;
uses crt;
Var x, y, buf:integer;
Begin
Write('Введите x ');
readln(x);
Write('Введите y ');
readln(y);
if x>y then
Begin
buf:=x;
x:=y;
y:=buf;
end;
Writeln('x = ',x);
Write('y = ',y);
readln;
<span>end.</span>