Question

С+ немесе Паскаль тілінде есеп. Тізбекпен жұмыс, қосындысы, көбейтіндісі! Берілген 10 массивтің тіздегінің қосындысы мен көбейтіндісін есептеу.

Answer 1

program aa; uses crt;

var tizbek: array[1..10]of integer;

i,kosindi,kobeytindi:integer;

begin clrscr;

kosindi:=0;

kobeytindi:=1;

for i:=1 to 10 do

begin 

writeln('tizbektin',i,'-si mysesi');

readln(tizbek[i]);

end;

for i:=1 to 10 do

begin 

kosindi:=kosindi+tizbek[i];

kobeytindi:=kobeytindi+tizbek[i];

end;

writeln('tizbektin kosindisi=',kosindi);

writeln('tizbektin kobeytindisi=',kobeytindi);

readln;

end.