Опубликовано 09.06.2017 по предмету Информатика от Гость >> <<

Задачи на паскале.
Задан массив А размерности N случайным образом. Найти:
1) сумму положительных элементов массива
2) сформировать новый массив по следующему правилу: все чётные элементы разделить на 2, все нечётные элементы оставить без изменения.
(2 разные задачи)

Ответ оставил Гость

var
A:array[1..100] of integer;
n, i, Summ:integer;
begin
randomize;
write(n = );
readln(n);
Summ := 0;
for i := 1 to n do
begin
A[i] := random(201) - 100;
write(A[i], );
if A[i] > 0 then
Summ := Summ + A[i];
end;

writeln;
if Summ <> 0 then
writeln(Summ = , Summ)
else
writeln(Нет ни одного положительного элемента);
readln;
end.

//вторая программа

var
A:array[1..100] of integer;
B:array[1..100] of real;
n, i, Summ:integer;
begin
randomize;
write(n = );
readln(n);
Summ := 0;
for i := 1 to n do
begin
A[i] := random(201) - 100;
write(A[i], );
if A[i] mod 2 = 0 then
B[i] := A[i] / 2
else
B[i] := A[i];
end;

writeln;
writeln;
writeln(Result:);
for i := 1 to n do
write(B[i], );
readln;
end.