Регистрация
arzuaes
01.08.2020 14:05
Информатика
Есть ответ 👍

Преобразовать одномерный массив элементы с третьего по восьмой разделить на последний элемент.

247
469
Посмотреть ответы 2

Ответы на вопрос:

pliza1706
pliza1706
4,6(5 оценок)
Var i,r: integer;   a: array[1..10] of real; s: real; begin write('r: '); readln(r); for i: =1 to r do  begin a[i]: = random(20); write(a[i]: 5: 1); end; writeln(); for i: =1 to r do  begin if (i> =3) and (i< =8)   then a[i]: =a[i]/a[r]; write(a[i]: 5: 1); end; readln(); end.
IAlisaI
IAlisaI
4,8(81 оценок)
Var a,s: integer; begin a: =5-6; s: =0; repeat a: =a+6; s: =s+a; until a> =131; writeln('s = ',s); end. результат: s = 1496

Популярно: Информатика