55 задайте массив с рандома 70 на отрезке -35 - 35 найдите в нем максимальный элемент и его число
Dodgesantafe
3
20.03.2019 19:01
0
Другие вопросы по теме Информатика
sviktoria77777
20.11.2020 13:10
kuzmichevaliza
20.11.2020 13:10
gogopuppies
17.08.2019 18:10
katka1999
17.08.2019 18:10
matveysandors
17.08.2019 18:10
NanaxD
17.08.2019 18:20
LikaKotik666
17.08.2019 18:20
lov3snake
17.08.2019 18:20
matveyking12345
17.08.2019 18:20
Популярные вопросы
- Из какого произведения мы узнали о патриоте и защитник родины...
1 - Решить уравнения надо буду )-3)=0 ,2) (5-(х))=0...
1 - Вычисли а) 1/4 + 3/10 б) 3/5 - 1/6 в) 7/10 - 2/15 г) 5/12 + 3/8...
2 - Put tag questions on the end of each sentence and answer them....
3 - Вычисли и запиши: произведение чисел 3427 и 3; частное чисел...
3 - Где находится осторожно крит на карте старой греции...
1 - Написать на все дни недели с переводом и переведите это: what...
2 - Составьте уравнение по условию мама и дочь собирали грибы в корзине...
1 - Проучившись один год сразу после школы в уральском государственном...
1 - Как звали великого художника и арзитектора научившего миф строить...
1
const n=10;
var
x: array [1..n] of integer;
kmax,k, smax : integer;
begin
randomize;
smax:=-99;
for k:=1 to n do
begin
x[k]:=random(70)-35;
write(x[k],' ');
if x[k]>smax then
begin
smax:= x[k];
kmax:=k;
end;
end;
writeln();
writeln(smax);
writeln(kmax);
end.