Задача для Free Pascal

[svob]

Дан массив, который содержит n произвольных чисел. Найдите сумму элементов массива, а также замените элементы, меньшие 10, на 0.

Решите задачу + составьте блок-схему пожалуйста

[vokar97]

Задача ведь не сложная, чего сам не решишь?
Количество произвольных чисел (n) вводить нужно?

[Aranea tela telam]

Код программы

Program User;
var 
a:array[1..10] of integer;
i,b:integer;
begin
randomize;
b:=0;
for i:=1 to 10 do
begin
a[i]:=Random(100);
if a[i]<10 then a[i]:=0;
b:=b+a[i];
end;
Writeln('Сумма массива ровна = ',b);
for i:=1 to 10 do
Write(' ',a[i]);
end.

А это блок схема к программе

[svob]

Я - очень далек от паскаля) Спасибо большое за решение

[Sciv]

Спасибо большое за решение

Которое немного неправильное, имхо. Сначала ищем сумму элементов, потом заменяем на 0 меньшие 10. А в коде наоборот.

Кроме того, думаю, что n все же надо вводить, а не задавать константой.

[Aranea tela telam]

Мда надо походу уже идти спать)
Вот исправил

Program User;
var 
a:array[1..100000000] of int64;
i,b,n:int64;
begin
randomize;
b:=0;
Readln(n);
for i:=1 to n do
begin
a[i]:=Random(100);
b:=b+a[i];
if a[i]<10 then a[i]:=0;
end;
Writeln('Сумма массива ровна = ',b);
for i:=1 to 10 do
Write(' ',a[i]);
end.

[Sciv]

a:array[1..100000000] of int64;

Че так жестоко-то?!

[svob]

Спасибо большое

[Aranea tela telam]

Сообщение от Sciv

a:array[1..100000000] of int64;

Че так жестоко-то?!

А что уж мелочится что ли?
Так надежнее будет

[whatever]

Сообщение от Aranea tela telam

А что уж мелочится что ли?
Так надежнее будет

Program User;
var 
a:array of int64;
i,b,n:int64;
begin
randomize;
b:=0;
Readln(n);
setlength(a,n)
for i:=0 to n-1 do
begin
a[i]:=Random(100);
b:=b+a[i];
if a[i]<10 then a[i]:=0;
end;
Writeln('Сумма массива ровна = ',b);
for i:=1 to 10 do
Write(' ',a[i]);
end.

не?