Дан фрагмент программы, обрабатывающей 2 массива А[1...10] и B[1...10]. Бейсик k=10 FOR i=1 TO 10 A(i)=k+1 B(k)=A(i) k=k-1 NEXT
Дан фрагмент программы, обрабатывающей 2 массива А[1...10] и B[1...10]. Бейсик k=10 FOR i=1 TO 10 A(i)=k+1 B(k)=A(i) k=k-1 NEXT i
Представим массив в виде строк длиной в 10 ячеек, в которой величина i является номером ячейки. Тогда данный алгоритм: 1) меняет местами элементы двух массивов 2) заполняет массив А с начала, а массив В с конца 3) меняет местами элементы массивов, стоящие на четных местах 4) заполняет массив А четными числами, а массив В - нечетными.
Пожалуйста, поподробнее. Никак не могу понять способ решения(((
1.это сведенья о событиях, явлениях окружающего мира. 2.это наука которая изучает способы передачи, хранения, обработки и поиска информации с помощью компьютера. 4.это информация, которая хранится как единое и имеет своё названия (имя файла). 5.это программа предназначенная для работы с текстом. 6.это программа которая позволяет создавать и изменять рисунки, фотографии, схемы.
Var x1a,y1a,x2a,y2a,L1,L2,x1b,y1b,x2b,y2b,:real; begin; readln(x1a); readln(y1a); readln(x2a); readln(y2a); readln(x1b); readln(y1b); readln(x2b); readln(y2b); l1:=sqrt(sqr(x2a-x1a)+sqr(y2a-y1a)); l2:=sqrt(sqr(x2b-x1b)+sqr(y2b-y1b)); if I1>l2 then writeln('Первый'); if l1<l2 then writeln('Второй'); if l1=l2 then writeln('Равны'); end.
Внутренним железом - хотя бы для того, чтобы его запустить.Операционной системой - чтобы на нем можно было хоть что-то делать.Монитором - чтобы видеть, что происходит.Мышью и клавиатурой - для удобства использования.
<u>PascalABC.NET 3.3.5, сборка 1644 от 23.03.2018</u> <u>Внимание! Если программа не работает, обновите версию!</u>
begin var x:=ArrRandom(15,-50,50); x.Println; var (sn,sp):=(0,0); foreach var m in x do if m>0 then sp+=m else sn+=m; Writeln('Разница между суммой положительных и отрицательных ',sp-sn) end.