Буду считать, что да, он самый востребованный тут =)
1)
var a: array [0..9] of integer;
i, o: integer;
begin
for i := 1 to 20 do
begin
if (i mod 4 = 0) then a[o] := i
else if (i mod 4 = 2) then a[o] := -1 * i;
if (i mod 4 mod 2 = 0) then o := o + 1;
end;
for i := 0 to 9 do
writeln(a[i]);
<span>end.

2)
var a: array [0..30] of integer;
i, o: integer;
s: string;
begin
for i := 1 to 30 do
begin
a[i] := random(6) - 3;
end;
writeln('Массив:');
for i := 0 to 30 do
begin
writeln('[', i, '] => ', a[i]);
if (a[i] > 0) then
begin
o := o + a[i];
s := s + inttostr(i) + ' ';
end;
end;
writeln('Номера положительных чисел: ', s);
<span>end.</span></span>

0 0

1 год назад

N школьников делят k яблок поровну, неделяющийся остаток остается в корзинке. Сколько яблок достанется каждому школьнику? Входны

НАБА

Program one;
var n, k, y: integer;
begin writeln('Введите число школьников: '); read(n); writeln('Введите число яблок: '); read(k); y := k div n; writeln('Каждому школьнику достанется по ', y, ' яблок');end.

0 0

4 года назад