Program t1;
Var a: array[1..n,1..m] of integer;
i,n,m,max,s: integer;
Begin
Read (n,m);
S:=0;
Max:=0;
For i:=1 to n do
Begin
S:=s+a[i];
End;
For i:=1 to m do
Begin
If (max>a[i]) then
Max:=max
Else max:=a[i];
End;
Write (s);
Write (max);
End.
Я думаю она зафиксированная в информационном объекте
<span>Попробуй
std::to_string(</span><span>Calculation()</span>)
Ну, значит, как-то так:
program arrays;
type
myArr = array of integer;
var
arr : myArr;
neg : integer;
i, n : integer;
begin
write('Введите размер массива: ');
readln(n);
if n>50 then n:=50;
setLength(arr, n);
randomize;
neg :=0;
for i:=0 to n-1 do begin
arr[i]:=random(200)-100;
if arr[i]<0 then neg:=arr[i];
write(arr[i], ' ');
end;
writeln;
writeln ('Последний отрицательный элемент массива: ', neg);
end.
#include<iostream>
using namespace std;
int main()
{
int n,sum=0;
cin>>n;
while(n!=0)
{
sum=sum+n%10;
n=n/10;
}
cout<<sum<<endl;
}