Question

1. Dintr-un şir de numere intregi, să se afişeze suma elementelor de pe poziţiile pare şi suma celor de pe poziţii impare. Exemplu:
Date de intrare: n=6 numerele 3 1 5 4 6 7
Date de ieşire: s_imp = 14 (am insumat elem. 3+5+6)
s_par = 12 (am insumat elem. 1+4+7)

2. Se introduc in calculator şi se memorează vârstele a n
bărbaţi. Afişaţi câţi au vârsta mai mare decât 50 şi mai
mică decât 70 de ani.
Exemplu:
Date de intrare n=4 vârstele 56 45 76 65
Date de ieşire 2 barbati


3. Fiind date n numere naturale, cate sunt prime cu 7? Dar
cu 10?
Exemplu:
Date de intrare: n=6 si numerele 5 7 14 20 12 15
Date de ieşire:
prime cu 7: 4 nr.
prime cu 10: 1 nr.


4. Se dă un tablou bidimensional cu n linii şi m coloane, 1
<= n,m <= 50, cu componente intregi şi un număr intreg k.
Se cere să se afişeze tabloul cu componentele mărite cu k.
Exemplu:
Date de intrare: n = 2 m = 3 k = 5 si elementele:
1 2 3
6 7 8
Date de ieşire:
4 7 8
11 12 13


5. Fiind dat un tablou bidimensional cu n linii şi n coloane,
afişaţi cea mai mare componentă şi poziţiile pe care le
ocupă.
Exemplu:
Date de intrare: n = 2 si matricea:
4 7
5 7
Date de ieşire: max = 7 se afla pe pozitiile 1 2 si 2 2



6. Să se afişeze suma elementelor de pe coloana k a unei
matrici cu n linii şi m coloane, k<=m.
Exemplu:
Date de intrare: n = 2 m = 4 k = 3 si matricea
4 3 6 8
7 4 9 0
Date de ieşire: s = 15

Answer 1

Am facut problemele in Pacal, sper sa te ajute.

Nu a incaput in poze dar pun aici problema 6:

6. type matrice = array[1..20,1..20] of integer;       
var n,i,j,max,poz_i,poz_j:integer;a:matrice;        
begin
write('n= ');readln(n);
write('k= ');readln(k);
for i:=1 to n do
 for j:=1 to n do
  begin
   write('a[',i,',',j,']=');
   readln(a[i,j]);
  end;
for i:=1 to n do
 s:=s+a[i,k];
write(s);
readln;
end.