Создан заказ №4872800
9 апреля 2020
Программирование в среде Pascal ABC (Экзамен 30 мин)
Как заказчик описал требования к работе:
Найти ошибки в программе и дать пояснения, что не верно.
Program Lab8;
Const N=5;
VarA,B:array[1...N] of real;
i,k:real; max:real;
Begin
For i:=1 to N do
Begin
A[i]:=random(10);
B[i]:=sqrt(exp(A[i]))-sqr(A[i]);
Writeln('A[',i,']=',A[i]:4:2,' B[',i,']=',B[i]:4:2);
End;
max:=B[i];
k:=1;
For i:=2 to N
do if B[i]>max then begin max:=B[i]; k:=i; end;
Writeln('Максимальный элемент B[i] имеет номер ',k);
End
подробнее
Заказчик
заплатил
заплатил
200 ₽
Заказчик не использовал рассрочку
Гарантия сервиса
Автор24
Автор24
20 дней
Заказчик принял работу без использования гарантии
12 апреля 2020
Заказ завершен, заказчик получил финальный файл с работой
5
Программирование в среде Pascal ABC (Экзамен 30 мин).docx
2020-04-15 14:52
Последний отзыв студента о бирже Автор24
Общая оценка
5
Положительно
Остался под хорошим впечатлением, работа была сделана молниеносно, чистый код, без грубых ошибок, приятно вести диалог при консультации. Уверенный "зачет" автору. Быстро-качественно-недорого. Думаю, еще обращусь за помощью в трудную минуту.
Хочешь такую же работу?
300 ₽
