Program mas;
Type mass=array[1..10] of integer;
var m: mass;
i,a: integer;
begin
for i:=1 to 10 do begin
read(m[i]);
end;
a:=m[1];
for i:=2 to 10 do begin
if a<m[i] then a:=m[i];
end;
writeln(a);
end.
Вот программа с вводом данных в массив и нахождение большего элемента в нём
Var s:real;
n,i:integer;
begin
s:=0;
write ('Введите n: ');
readln(n);
for i:=1 to n do s:=s+(1/i);
writeln ('S = ',s:0:2);
end.
Подробное решение задачи внутри вложенного файла
Я думаю так: Д,В,Е,Ж,Г,Б,А Получается: ftp://edu.ru/demo.rar
Ответ:
b = 3
Объяснение:
Нужно подобрать такое число b, чтобы уравнение
13b² +1 = 118 было верно,
Приведём к красивому виду:
13b² = 117 Поделим обе части на 13
b² = 9 и решим
2 корня
b₁= 3 и b₂ = -3
Подходит лишь первый по условию