Var i: integer; a: real; b: array[0..5] of integer; begin for i: =1 to 5 do begin write('введите числа массива: '); readln(b[i]); a: =sqrt(b[i]); writeln('ответ: ',a); end; readln; end.
0,0(0 оценок)
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota
Оформи подписку
