Составьте программу решения следующей задачи. С первой яблони сорвали одно яблоко, со второй – 2 яблока, - id1234648420221222 от khabarova84 22.12.2022 10:43

Question

Информатика: Составьте программу решения следующей задачи. С первой яблони сорвали одно яблоко, со второй – 2 яблока, с третьей – 3 яблока, с четвертой – 4 яблока и т.д., и наконец, с пятнадцатой – 15 яблок. Сколько яблок сорвали со всех 15-ти яблонь?

khabarova84 · Accepted Answer

//Pascal ABC.NET v3.1 сборка 1172

Var
ar:array of integer;
n,i,min,mini:integer;
begin
randomize;
min:=2147483647;
writeln('Введите размерность:');
readln(n);
setlength(ar,n);
writeln('Array:');
for i:=0 to n-1 do
begin
ar[i]:=random(-30,30);
write(ar[i]:4);
if min>=ar[i] then
begin
min:=ar[i];
mini:=i;
end;
end;
for i:=0 to mini-1 do
if ar[i]<0 then ar[i]:=0;
writeln;
writeln('Final array:');
for i:=0 to n-1 do
write(ar[i]:4);
end.

Пример ввода:
5
Пример вывода:
Array:
-3 -26 -2 18 -21
Final array:
0 -26 -2 18 -21

MOGZ ответил