Question

Информатикадан 8 сыныпқа Паскаль есептері керек еді? Логикалық болса мәтінімен жақсы болар еді?

Answer 1

1) ЕСЕПТIҢ БЕРЛIГЕНI: Процедура. Бір өлшемді массив және А,В бүтін сандары берілген. А-дан үлкен не тең және В-дан кіші не тең болатын элементтерін процедура құру арқылы анықтау керек? Жауабы:
program vector;

uses crt;

type doc=array[1..20] of integer;

procedure vec(a1,b1,m:integer; t:doc;var s:integer); var k:integer;

begin for k:=1 to m do read(t[k]);

s:=0;

for k:=1 to m do if (t[k]>=a1)and(t[k]<=b1) then s:=s+t[k];

end;

var i,n,a,b,p:integer;

X,Y:doc;

Begin clrscr;

write('a='); readln(a); write('b='); readln(b); write('1 massiv olshemi n='); readln(n); vec(a,b,n,X,p); write('p=',p); writeln; write('2 massiv olshemi n='); readln(n); vec(a,b,n,Y,p); write('p=',p);

end.