1) var a: array[0..10] of integer; i, s: integer;
begin
for i := 1 to 10 do begin
a[i] := random(60);
write(a[i], ' ');
if a[i]<=20 then s:=s+a[i];
end;
writeln;
writeln(s);
<span>end.
2) </span>var a: array[0..10] of integer; i, s: integer;
begin for i := 1 to 10 do begin
a[i] := random(60);
write(a[i], ' ');
// if (i mod 2=1) then s:=s+a[i]; Раскоментируй, если сумму нужно искать среди нечетных номеров элементов.
// if (a[i] mod 2=1) then s:=s+a[i]; Раскоментируй, если сумму нужно искать среди самих нечетных элементов.
end;
writeln;
writeln(s);
end.
Ну в папке лежат бумажки какие-то а карандаш он маленький если просунуть руку пониже то ты его найдёш
Program z2;Var a,b,c:integer; SA:real;Begin write('Введите 1-ое число: '); readln(a); write('Введите 1-ое число: '); readln(b); write('Введите 3-ье число: '); readln(c); SA:= (a + b + c) / 3; writeln('Сумма: ', SA);End.
<span>Сколько существует различных наборов ответов на эту олимпиаду, отличающихся ответом хотя бы на одну задачу?</span>
<span>1задача - 5 вариантов</span>
<span>2 - 3</span>
<span>3 - 6</span>
<span>4 - 10</span>
<span>5 - 7</span>
<span>Всего (((5*3)*6)*10)*7=6300</span>
<span>
</span>
<span>Ответ 6300</span>