Răspuns :
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.
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.
Vă mulțumim pentru vizita pe site-ul nostru dedicat Informatică. Ne dorim ca informațiile furnizate să vă fi fost utile. Dacă aveți întrebări sau aveți nevoie de suport suplimentar, nu ezitați să ne contactați. Revenirea dumneavoastră ne bucură, iar pentru acces rapid, adăugați-ne la favorite!