Немного исправил программу:
program Alex1;
var
a: array[1..10] of integer;
max, i: integer;
begin
for i := 1 to 10 do
read(a[i]);
writeln('Исходный массив');
for i := 1 to 10 do
write(a[i], ' ');
max := a[1];
for i := 2 to 10 do
if a[i] > max then max := a[i];
for i := 1 to 10 do
if a[i] < 0 then a[i] := max;
writeln;
writeln('Новый массив');
for i := 1 to 10 do
write(a[i], ' ');
<span>end.</span>
var A:array[1..10] of integer;
i:integer;
s: integer;
begin
writeln('Массив А:');
s:=0;
for i:=1 to 10 do
begin
write('Введите ',i,'-e число ');
readln(A[i]);
if A[i] <> 0 then s:=s+1;
end;
write('Строка чисел: ');
for i:=1 to 10 do
begin
write(a[i],' ');
end;
writeln();
writeln('Сумма элементов, не равных нулю = ',s);
end.
На бумагу
на лист
на что то плоское и легкое
Сортировка методом пузырька
<span>// Решение должно иметь от 20 до 5000 символов</span>
...
{
int v,v1,s,s1,t;
cin>>v>>v1>>s>>t;
s1=(v*t)+(v1*t)+s;
cout<<s1;
return 0;
}
P.s. программа написана с учетом того, что все велечины целочисленные, если требуется усложнение в виде обработки вещественных данных, то замените целочисленный тип integer на float или double (в данном случае разницы нет). Формула расстояния s=v*t, т.е. мы находим сколько за t часов проедет 1 автомобиль, потом 2, потом складываем эти значения и добавляем туда же расстояние, которое уже было между ними