Програма знаходить елементи масива з 35 цілих чисел, які більше 0:

Програма знаходить елементи масива з 35 цілих чисел, які більше 0:

	Program poisk_>0; Uses crt; Const n=35; Var mas:array[1..n] of integer; i:integer; Begin clrscr; randomize; for i:=1 to n do mas[i]:=random(100)-50; writeln('elementi >0 v massive'); for i:=1 to n do if (mas[i]>0) then write(mas[i],' '); readkey; End.

Програма знаходить елементи масива з 45 цілих чисел, які більші за середнє-арифметичне додатних елементів.

Відмінність цієї задачі від попередньої полягає в тому, що для пошуку елементів масива які відповідають умові задачі, спочатку треба порахувати середнє значення, тобто додається блок розрахунків і результат розрахунків на виводиться на екран, і тільки потім відбувається відбір і вивід на екран елементів масива які більше цього середнього значення.

	Program poisk_>srednego; Uses crt; Const n=45; Var mas:array[1..n] of integer; i,kol,sum:integer; sr:real; Begin clrscr; randomize; for i:=1 to n do mas[i]:=random(100)-50; for i:=1 to n do if mas[i]>0 then begin sum:=sum+mas[i]; kol:=kol+1; end; sr:=sum/kol; writeln('elementi > ',sr:2:2); for i:=1 to n do if (mas[i]>sr) then write(mas[i],' '); readkey; End.

Заміна елементів масива за умовою – це заміна в заданому масиві елементів які задовольняють умові задачі, на нові – значення яки задається умовою задачі.

Програма заміняє в масива з 50 елементів всі елементи які більші нуля на мінус одиниці, а ті які менші нуля на одиниці:

		Program zamena_na_chislo; Uses crt; Const n=50; Var mas:array[1..n] of integer; i:integer; Begin clrscr; randomize; for i:=1 to n do mas[i]:=random(100)-50; writeln('ishodniy massiv'); for i:=1 to n do write(mas[i],' '); writeln; for i:=1 to n do begin if mas[i]>0 then mas[i]:=1; if mas[i]<0 then mas[i]:=-1; end; writeln('noviy massiv'); for i:=1 to n do write(mas[i],' '); readkey; End.

---

Дата добавления: 2015-08-29