Создать массив из 12 элементов на промежутке [-8;10] вынести строчку на экран.
1) подсчитать количество элементов в массиве,значения которых больше 3.
2) найти сумму всех отрицательных элементов массива.
3) заменить все отрицательные элементы массива их индексами.вывести новый массив на экран
4)найти максимальный элемент
const n = 12;
var
a: array[1..n] of integer;
i, count, s, max: integer;
begin
write(Массив до: );
for i := 1 to n do begin
a[i] := random(19) - 8;
write(a[i], );
if(a[i] > max) then max := a[i];
if(a[i] > 3) then inc(count) else
if(a[i] < 0) then begin
s := s + a[i];
a[i] := i;
end;
end;
writeln;
write(Массив после: );
for i := 1 to n do write(a[i], );
writeln;
writeln(1) Кол-во эл. в массиве,значения которых > 3: , count);
writeln(2) Сумма всех отрицательных эл. массива: , s);
writeln(3) Макс. элемент: , max);
end.
Оцени ответ
Подпишись на наш канал в телеграм. Там мы даём ещё больше полезной информации для школьников!
