var a:String;
i,sum:Integer;
begin
writeln('Введите последовательность чисел:');
readln(a);
a := a.Replace(' ', '');
writeln('Количество чисел:' + a.Length);
for i := 1 to a.Length do
sum := sum + strToInt(a[i]);
writeln('Сумма: ' + sum);
end.
Объяснение:
В начале я запросил последовательность чисел как строку, убрал все пробелы и посчитал длину самой строки, этим я узнал, сколько там чисел. Далее используя циклом посчитал сумму всех чисел.
Ввод:
1 2 3 4 5
Вывод:
Количество чисел: 5
Сумма: 15
//1
Var
ar:array[1..5] of integer;
min,i:integer;
begin
min:=2147483647;
for i:=1 to 5 do
begin
readln(ar[i]);
if ar[i]<min then min:=ar[i];
end;
write('Min=',min);
end.
Пример ввода:
6
-6
3
4
5
Пример вывода:
Min=-6
//2
Var
ar:array[1..20] of integer;
i,s:integer;
begin;
randomize;
s:=0;
writeln('Array:');
for i:=1 to 20 do
begin;
ar[i]:=random(101);
write(ar[i]:4);
if ar[i] mod 7=0 then s:=s+ar[i];
end;
writeln;
write('Sum=',s);
end.
Пример работы программы:
Array:
13 23 70 67 0 82 16 66 48 54 46 99 100 75 48 33 1 88 9 73
Sum=70