М
Молодежь
К
Компьютеры-и-электроника
Д
Дом-и-сад
С
Стиль-и-уход-за-собой
П
Праздники-и-традиции
Т
Транспорт
П
Путешествия
С
Семейная-жизнь
Ф
Философия-и-религия
Б
Без категории
М
Мир-работы
Х
Хобби-и-рукоделие
И
Искусство-и-развлечения
В
Взаимоотношения
З
Здоровье
К
Кулинария-и-гостеприимство
Ф
Финансы-и-бизнес
П
Питомцы-и-животные
О
Образование
О
Образование-и-коммуникации
Abdresh
Abdresh
06.03.2022 08:48 •  Информатика

По м о г и т е, п о ж а л у й с т а! 1) с датчика случайных чисел получить 15 вещественных чисел n (38

👇
Ответ:
alyena2802
alyena2802
06.03.2022
1)
begin
var a:=ArrRandomReal(15,38,39);
a.Println;
end.

2)
begin
  var a := ArrRandom(20, 0, 5);
  Writeln('Последовательность ');
  a.Println;
  Writeln('Нечетные ');
  a.Where(x -> odd(x)).Println;
end.
4,6(84 оценок)
Открыть все ответы
Ответ:
ttyt3
ttyt3
06.03.2022
Цифрами обозначены строки необходимые в соответсвующей программе, остальные - общие. Ну и переменные смотри

var   
a : array [1..200] of longint;   
p,max : integer;   
n,i,j : integer; 
begin 
readln (n); 
p := 1;     // 1 
max := 0;   // 2 3   
for i := 1 to n do   
begin     
readln (a[i]);      
p := p * a[i];  // 1     
if a[i] > max then //2 3       
begin                 //2 3
max := a[i]; // 2 3       
j := i; //3       
end;       // 2 3
end;     
writeln (p); //1   
writeln (max); //2   
writeln (j); //3 
end.
4,7(38 оценок)
Ответ:
gerasimenkocatia
gerasimenkocatia
06.03.2022
1) В цикле Repeat Until идет проверка, что число введено в диапазоне [0..200}
var
i,n:integer;
a:longint;
p:real;
begin
p:=1;
Repeat
    readln(n);
Until (n>=0)and(n<=200);
for i:=1 to n do
   begin
        readln(a);
        p:=p*a;
   end;
writeln(p);
end.

2)
var
i,n:integer;
a,max:longint;
begin
Repeat
    readln(n);
Until (n>=0)and(n<=200);
for i:=1 to n do
   begin
        readln(a);
            if a>max then
                max:=a;
   end;
writeln(max);
end.
3)
var
i,n:integer;
a,min:longint;
begin
Repeat
    readln(n);
Until (n>=0)and(n<=200);
for i:=1 to n do
   begin
        readln(a);
            if a<min then
                min:=a;
   end;
writeln(min);
end.
4,5(25 оценок)
Это интересно:
Новые ответы от MOGZ: Информатика
logo
Вход Регистрация
Что ты хочешь узнать?
Спроси Mozg
Открыть лучший ответ