Реализовать процедуру или функцию, реализующую следующие операции над одномерными массивами. Написать программу, использующую да
нные алгоритмы. !Работу пррограммы организовать в виде функций! -Язык Программирования(Pascal) 1. Заменить положительные элементы массива единицами, отрицательные – нулями, посчитать количество положительных и отрицательных элементов. 2.Вывести на экран номера положительных элементов массива и посчитать количество таких элементов. 3.Найти сумму и среднее арифметическое значение модулей нечетных элементов массива. Сделайте хотя бы одно из трёх заданий! Буду благодарен!
// PascalABC.NET 3.1, сборка 1214 от 09.04.2016 procedure ex1(a:array of integer; var nn,np:integer); begin nn:=0; np:=0; for var i:=0 to a.Length-1 do if a[i]<0 then begin a[i]:=0; Inc(nn) end else if a[i]>0 then begin a[i]:=1; Inc(np) end end;
begin var a:=ArrRandom(ReadInteger('n='),-20,20); a.Println; var kp,kn:integer; ex1(a,kn,kp); Writeln('Отрицательных ',kn,', положительных ',kp); a.Println end.
// PascalABC.NET 3.1, сборка 1214 от 09.04.2016 procedure ex2(a:array of integer); begin var k:=0; for var i:=0 to a.Length-1 do if a[i]>0 then begin Print(i+1); Inc(k) end; Writeln(NewLine,'Количество положительных элементов равно ',k) end;
begin var a:=ArrRandom(ReadInteger('n='),-20,20); a.Println; ex2(a); end.
<u><em>Тестовое решение:</em></u> n= 13 15 -3 1 11 -20 17 -17 -12 -12 20 11 2 20 1 3 4 6 10 11 12 13 Количество положительных элементов равно 8
// PascalABC.NET 3.1, сборка 1214 от 09.04.2016 procedure ex3(a:array of integer); begin var s:=0; var k:=0; var i:=0; while i<a.Length do begin s+=abs(a[i]); Inc(k); i+=2 end; Writeln('Сумма модулей нечетных элементов равна ',s); Writeln('Их среднее арифметическое равно ',s/k) end;
begin var a:=ArrRandom(ReadInteger('n='),-20,20); a.Println; ex3(a); end.
<u><em>Тестовое решение:</em></u> n= 10 2 -1 -14 -12 11 13 1 17 20 6 Сумма модулей нечетных элементов равна 48 Их среднее арифметическое равно 9.6
1) набор символов отделяемых проблами
2) набор символов отделяемых переводами строки
3) тут трудно сказать, скорее это чтото динамическое
4) я думаю что редактирование все же, просмотр реже
5) редактирование это изменение набора символов текста, так же впринцепе сюда относится и форматирование текста
6) Которые можно проводить в текстовом редакторе? создать, сохранить, сохранить с новым именем (а ля скопировать), открыть