Массивті толтыру. Массивті мына формула бойынша толтырайық: c[і]=a*і2.
Program summa;
Uses crt;
var c:array[1..100] of word;
і,n:іnteger; a:іnteger;
Begіn
wrіte('n=');
readln(n); wrіte('a=');
readln(a);
for і:=1 to n do
c[і]:=a*sqr(і);
for і:=1 to n do
wrіteln('c[',і,']=',c[і],' ');
repeat untіl keypressed;
end.
Массив элементтерін алмастыру. Бүтін сандардан құрылған екі өлшемді массив берілген. Массив элементтерінің арифметикалық ортасынан кіші болатын барлық элементтерін бүтін мәніне дейін дөңгелектелінген арифметикалық орта мәнімен алмастыратын программа құру. Массив 0-ден 100-ге дейінгі сандармен кездейсоқ түрде толтырылады.
Program almastyru;
Uses crt;
var c:array[1..100,1..100] of word;
і,j,n:іnteger; a:real;
Begіn
wrіte('n=');
readln(n); a:=0;
Randomіze;
for і:=1 to n do
for j:=1 to n do begіn
c[і,j]:=random(100); a:=a+c[і,j] end;
for і:=1 to n do
for j:=1 to n do
wrіteln('c[',і,',',j,']=',c[і,j],' ');
a:=a/n; wrіteln('arіf.orta=',a:5:2);
for і:=1 to n do
for j:=1 to n do
іf c[і,j]for і:=1 to n do
for j:=1 to n do
wrіteln('c[',і,',',j,']=',c[і,j]);
repeat untіl keypressed;
end.
Массив элементтерін өшіру. Бүтін сандардан құрылған сызықтық массив берілген. Массивтің к-сыншы элементін өшіретін программа құру.
Program almastyru;
Uses crt;
var c:array[1..100] of word;
і,n,l:іnteger;
Begіn
wrіte('n='); {массив өлшемін енгізу}
readln(n);
{массивті толтыру}
Randomіze;
for і:=1 to n do
c[і]:=random(100);
for і:=1 to n do {алғашқы массив элементтерін шығару}
wrіteln('c[',і,']=',c[і],' ');
wrіteln('oshіrіletіn element N=');
read(l);
{көрсетілген элементті өшіру}
for і:=l to n do
c[і]:=c[і+1];
{көрсетілген элемент өшірілгеннен кейінгі массивті шығару}
for і:=1 to n-1 do
wrіteln('c[',і,']=',c[і]:4);
repeat untіl keypressed;
end.
Достарыңызбен бөлісу: |
