Предполагается, что будет введено минимум одно значение.
varmax,a : integer;beginreadln(a);max := a;repeatreadln(a);if (a > max) and (a <> 0) thenmax := a;until a = 0;writeln(max);readln;end.
P.S. Если понравилось решение не забудь отметить как лучшше. ;)
Подробнее - на Znanija.com -
znanija.com/task/1506362#readmore
Var x,y: real;
begin
readln(x);
y:=x/(1+((x*x)/5+(x*x*x)));
writeln(y);
end.
# -*- coding: utf-8 -*-
def getAverageFromEven(first, last):
'''Среднее арифметическое.'''
count, s = 0, 0
for i in range(first, (last + 1)):
if i % 2 == 0:
s += i
count += 1
return s / count
f = int(input('первый элемент: '))
l = int(input('первый элемент: '))
print 'среднее арифметическое: %i' % getAverageFromEven(f, l)
Программа:
const n=5; m=6;
var
a:array[1..n,1..m] of integer;
i,j,s,min,k:integer;
begin
Randomize;
writeln('Исходный массив:');
for i:=1 to n do
begin
for j:=1 to m do
begin
a[i,j]:=random(100);
write(a[i,j]:4);
end;
writeln;
end;
min:=0; k:=1;
for j:=1 to m do min:=min+a[1,j];
writeln('s1 = ',min);
for i:=2 to n do
begin
s:=0;
for j:=1 to m do s:=s+a[i,j];
writeln('s',i,' = ',s);
if s<min then begin min:=s; k:=i; end;
end;
writeln('min сумма = ',min,' (',k,'-я строка)');
end.
Пример:
Исходный массив:
24 61 29 35 82 8
98 58 55 2 11 35
14 46 59 55 79 8
4 25 4 48 83 49
96 27 56 87 91 63
s1 = 239
s2 = 259
s3 = 261
s4 = 213
s5 = 420
min сумма = 213 (4-я строка)