Uses crt;constn = 10;vari,b:integer;mas : array[1..n] of integer;v:array[1..n]of integer;max_num, max_index,g,c: integer;begin writeln('введите элементы массива');for i:=1 to n do readln(mas[i]);for i := 2 to n doif mas[i] > max_num then beginmax_index := i;max_num := mas[i];end;writeln('введите элементы массива');for b:=1 to n do readln(v[b]);for b := 2 to n doif v[b] > g then beginc := b;g := v[b];end;if g<max_num then writeln('Максимальное число в первом массиве ',max_num ,' находится на позиции ',max_index)else writeln ('Максимальное число во втором массиве ',g,' находится на позиции ',c);end.
Если не ошибаюсь, то X и Z являются типа byte. Требовать от переменных этого типа извлечение корня неправильно. Так как это по определению целые положительные числа, размером до 256. От переменной, из которой извлекают корень, требуется тип значения - действительное число. Так что лучше сразу объявить эти две переменные типа double (похоже так в Паскале).
В первом же случае лучше извлечь корень с операции sqrt. Снова, если не ошибаюсь, операция возведения в степени в Паскале довольно трудоемка что ли. Она определяется через exp и ln. Так что лучше не заморачиваться, а воспользоваться оператором sqrt.
В первом же случае лучше извлечь корень с операции sqrt. Снова, если не ошибаюсь, операция возведения в степени в Паскале довольно трудоемка что ли. Она определяется через exp и ln. Так что лучше не заморачиваться, а воспользоваться оператором sqrt.