Не понятно что значит "<span> 2 и 3 массива</span>", остальное сделанно
var
a: array[1..100] of integer;
i, n, sum: integer;
begin
n := 30;
writeln('Данные массива:');
for i := 1 to n do
begin
a[i] := random(35) - 10;
write(a[i], ' ');
end;
writeln();
sum := 0;
for i := 1 to n do
if a[i] > 0 then
sum := sum + a[i];
writeln('sum = ', sum);
end.
Предлагаю вариант в VBA Excel
Код программы можно увидеть нажав Alt+F11
1) 29
2) -1
................
Если правильно понял, то:
var a, b: integer;
begin
readln(a, b);
writeln(b, a);
end.
Ответ №1
С файлом ничего не приключилось, где был, там и лежит