Question

scrieti exercitii aritmetice pentru calculati suma primelor patru componente variabil x si suma ultimelor patru componente variabil y type tablou=array[1...10] of integer var x,y:tablou (va rog mult acum imi trebuie de voi depinde veata mea)

Answer 1

Exercitiile aritmetice sunt: 
s1=x[1]+x[2]+x[3]+x[4]
s2=y[7]+y[8]+y[9]+y[10];

Cum ar arata un astfel de program vezi mai jos;

Program Tema;
type tablou=array[1...10] of integer;
var
   x,y:tablou;
   i,s1,s2:integer;
begin
s1:=0;
s2:=0;
writeln('Introduceti componentele primului sir: ');
for i=1 to 10 do
read(x[i]);
writeln('Introduceti componentele celui de-al doilea sir: ');
for i=1 to 10 do
read(y[i]);

for i=1 to 4 do
s1:=s1+x[i];

for i=7 to 10 do
s2:=s2+y[i];

writeln('Suma primelor 4 componente din variabila x este: ',s1);
writeln('Suma ultimelor 4 componente din variabila x este: ',s2); 
end.