Массивы

Дан массив a[10] заполненный целыми числами. Определить максимальный элемент массива и сумму положительных чисел.
Алгоритмический язык
Решение

алг
нач
  цел i,m,s
  целтаб a[0:9]
  a[0]:=1; a[1]:=-3; a[2]:=0;  a[3]:=5; a[4]:=-4
  a[5]:=0; a[6]:=3;  a[7]:=-5; a[8]:=8; a[9]:=6
  s:=0
  m:=a[0]
  нц для i от 0 до 9
    если a[i]>m то m:=a[i] все
    если a[i]>0 то s:=s+a[i] все
  кц
  вывод 'sum= ',s,нс
  вывод 'max= ',m
кон

Результат

sum= 23
max= 8

Pascal
Решение

var
i,s,max:integer;
a:array[0..9]of integer;
begin
a[0]:=1; a[1]:=-3; a[2]:=0;  a[3]:=5; a[4]:=-4;
a[5]:=0; a[6]:=3;  a[7]:=-5; a[8]:=8; a[9]:=6;
s:=0;
max:=a[0];
for i:=0 to 9 do 
begin
if a[i]>max then max:=a[i];
if a[i]>0 then s:=s+a[i];
end;
writeln('sum = ',s);
write('max = ',max);
end.

Результат

sum = 23
max = 8

Python 3
Решение

a = [1, -3, 0, 5, -4, 0, 3, -5, 8, 6]
s = 0
for i in range(10):
    if a[i]>0:
        s+=a[i]
print('sum=',s)
print('max=',max(a))

Результат

sum = 23
max = 8

C++
Решение

#include <iostream>
using namespace std;
int main()
{
int a[10];
a[0]=1; a[1]=-3; a[2]=0;  a[3]=5; a[4]=-4;
a[5]=0; a[6]=3;  a[7]=-5; a[8]=8; a[9]=6;
int s=0, m=a[0];
for(int i=0;i<10;i++){
    if(a[i]>0){s+=a[i];}
    if(a[i]>m){m=a[i];}
}
cout<<"sum = "<<s<<endl<<"max = "<<m;
    return 0;
}

Результат

sum = 23
max = 8