Можно уточнить именно плюсы и минусы чего? Суперкомпьютера или ПК? Или того и другого
Var
z: array[0..9]of real = (-6, 98, -45, 9, 4, -7, -12, 32, 1, 3);
sum: real;
i: integer;
begin
for i := 0 to 9 do
if(z[i] < 0) then sum := sum + z[i];
write(sum);
end.
1. Метод кодирования
2. Графический
3. Декарт
4.Брайль
5. Код
6.Числовой
7.Схемы
8. Символьный
9.Кодирование
10. Шахматы
Сделаешь лучшим?
Var
s: string;
i: integer;
begin
readln(s);
for i:=length(s) downto 1 do
if s[i] = ' ' then
delete(s, i, 1);
writeln(s);
<span>end.
Пример входных данных: Мама мыла раму
</span>Пример выходных данных: Мамамылараму