Новые сообщения · Правила  
Страница 1 из 11
Модератор форума: Berestovskiy 
Форум ПРОГРАММИСТОВ » ПРОГРАММИРОВАНИЕ » С, C++ » Даны a[0],a[1]...a[n]
Даны a[0],a[1]...a[n]
Даны a[0],a[1]...a[n]. Найти max и корень из суммы квадратов из этих элементов.
1 | Автор: newsk | 2012-01-22, 13:48   |  Репутация: [ + 0 ]
На паскале подойдёт код?

Нужна помощь? Сюда: vkontakte.ru/berestovskiy
2 | Автор: Berestovskiy | 2012-01-31, 18:33   |  Репутация: [ + 211 ]
var
a:array[0..100]of integer;
p,i,n:integer;
s:real;
begin
read(n);
p:=low(p);s:=0;
for i:=0 to n do begin
read(a[i]);
if a[i]>p then p:=a[i];
s:=a[i]*a[i]+s;
end;
writeln(p);
write(sqrt(s));
end.


Нужна помощь? Сюда: vkontakte.ru/berestovskiy
3 | Автор: Berestovskiy | 2012-02-01, 18:54   |  Репутация: [ + 211 ]
Форум ПРОГРАММИСТОВ » ПРОГРАММИРОВАНИЕ » С, C++ » Даны a[0],a[1]...a[n]
Страница 1 из 11
Поиск: