Задачи на паскале. Задан массив А размерности N случайным ...
Задачи на паскале.Задан массив А размерности N случайным образом. Найти:1) сумму положительных элементов массива2) сформировать новый массив по следующему правилу: все чётные элементы разделить на 2, все нечётные элементы оставить без изменения.(2 разные задачи)
Есть ответ
17.12.2022
376
Ответ
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.
Если вы нашли правильное решение, вы можете поблагодарить нас начиная с 10 рублей.
Просто нажмите на кнопку "Подарить".
Просто нажмите на кнопку "Подарить".
17.12.2022
