Школьные кружки - отводим 3 стрелки
1 стрелка - Шахматы
2 стрелка - Шашки
3 стрелка - Танцы
От этих 3 стрелок отводим другие стрелки
От Шахмат Отводим 3 стрелки, которые номеруем от 1 до 3
От шашек отводим 2 стелки и нумеруем от 1 до 2
От Танцев нумеруем от 1 до 3
1) program n_1;
var a:array[1..100] of integer;
i, n:integer;
begin
writeln('Введите кол-во элементов');
readln(n);
for i:=1 to n do
begin
a[i]:=random(450)+250;
writeln(a[i],' ');
end;
end.
Const n=10;var a:array[1..n]of integer;i,k:integer;begink:=0;for i:=1 to n do begin read(a[i]);if ((a[i] mod 3=0) and (a[i] mod 5 >0)) then k:=k+1;end;write('таких чисел:',k);end.
var
Y: integer;
begin
Write('Y = ');
Readln(Y);
Write('Введенное целое число ',Y,' является отрицательным - ', Y < 0);
Readln
end.
Var a,s:integer;
begin
writeln ('Введите целое число');
a:=1;
while a<>0 do
begin
readln (a);
s:=a+s;
end;
writeln ('Сумма всех введенных чисел = ', s);
<span>end.</span>