Program zadacha;
var a: array[1..5] of integer;
max,min,i,nmax,nmin: integer;
begin
for i:=1 to 5 do
begin
write ('Ââåäèòå a[',i,']=');
readln (a[i]);
end;
max:=a[1];
min:=a[1];
nmax:=1;
nmin:=1;
for i:=1 to 5 do
begin
if a[i]>max then
begin
max:=a[i];
nmax:=i;
end;
if a[i]<min then
begin
min:=a[i];
nmin:=i;
end;
end;
for i:=1 to 5 do
begin
write (a[i],' ');
end;
writeln;
writeln ('Максимальный элемент равен ',max,', его номер ',nmax);
writeln ('Минимальный элемент равен ',min,', его номер ', nmin);
end.
#include <iostream>
<span>#include <iomanip>
</span><span>#include <fstream>
</span><span>using namespace std;
</span>int main() {
<span> int n;
</span><span> float s=0;
</span><span> ifstream f;
</span><span> f.open("input.txt");
</span><span> while(!f.eof()) {
</span><span> f>>n;
</span><span> while (n>0) { s+=n%10; n=n/10; }
</span><span> }
</span><span> f.close();
</span><span> cout<<s<<endl;
</span><span> system("pause");
</span><span> return 0;
</span><span>}
</span>
n - кол-во чисел
i - цикловая переменная
а - число
max - максимальное число, оканчивающееся на 3
Язык програмирования: Паскаль.
var
n,i,a,max: integer;
begin
readln(n);
max := -1;
for i := 1 to n do
begin
readln(a);
if (a mod 10 = 3) and (a > max) then
max := a;
end;
writeln(max)
end.
