Русский учёный Попов открыл радиосвязь в 1895 году
7 мая 1895г. А.С. Попов выступил с докладом на заседании физического отделения Русского физико-химического общества, на котором продемонстрировал созданную им систему связи без проводов. Первая в мире радиосвязь была осуществлена на этом докладе, на расстоянии 60 м.
PascalABC.NET 3.3.5, сборка 1660 от 20.04.2018 Внимание! Если программа не работает, обновите версию!
begin var a:=ArrRandom(ReadInteger('n='),-50,50); a.Println; var b:=ArrRandom(ReadInteger('n='),-50,50); b.Println; var sp:=b.Where(t->t>0).Sum; var im:=a.IndexMax; if im>0 then begin a:=ArrFill(im,sp)+a[im:]; a.Println end else Writeln('Максимальный элемент стоит первым') end.
Могу в предложить в данном случае использовать goto и метки. Ну, если вы имеете какой то признак неправильных данных, например, это отрицательные значения (предположим, что это неправильные данные) То на этапе, когда вы вводите эти значения, вы должны поставить условный оператор. Т.е. if a<0 tnen begin Writeln('Вы ввели неверные данные'); goto 1 else goto 2; Метку 1 вы ставите в начало алгоритма, т.е. туда, откуда вы хотите начать повторное выполнение программы, а метку 2 поставить в продолжение алгоритма, т.е. на тот случай, если данные были введены верно
7 мая 1895г.
А.С. Попов выступил с докладом на заседании физического отделения Русского физико-химического общества,
на котором продемонстрировал созданную им систему связи без проводов.
Первая в мире радиосвязь была осуществлена на этом докладе, на расстоянии 60 м.