Даю 50+
Переведите код с Паскаля на С++
uses crt;
const nmax=20;
var a:array[0..nmax,0..nmax] of integer;
m,n,i,j,imx:byte;
mx,sm:integer;
begin
clrscr;
randomize;
repeat
write('Количество спортсменов до ',nmax,' n=');
readln(n);
until n in [1..nmax];
repeat
write('Количество попыток до ',nmax,' m=');
readln(m);
until n in [1..nmax];
writeln('Введите построчно через пробел результаты каждого спортсмена');
writeln('После каждой строки нажать Enter');
writeln('Таблица результатов:');
for i:=0 to n-1 do
for j:=0 to m-1 do
read(a[i,j]);
readln;
writeln;
mx:=0;imx:=0;
for i:=0 to n-1 do
begin
sm:=0;
for j:=0 to m-1 do
sm:=sm+a[i,j];
if sm>mx then
begin
mx:=sm;
imx:=i;
end;
end;
write('Максимальная сумма попыток=',mx,' у спортсмена ',imx+1);
readln
end.
◘Достоверность информации. Ин-фа достоверна, если отражает истинное положение дел. (объективная информация всегда достоверна)
◘Полнота информации. Информация полная, если ее достаточно для понимания и принятия решения.
◘Точность информации. Определяется степенью ее близости к реальному состоянию объекта, процесса, явления и т.д.
◘Актуальность информации – важность для настоящего времени.
◘Полезность информации.
- Самая ценная информация – объективная, достоверная, полная, и актуальная.
В непосредственном режиме- видимо без ввода программы, ввести последовательно строки (сначала присваиваем значение переменной икс, затем вычисляем выражение и помещаем это значение в переменную игрек, и после печатаем значение переменной игрек):
LET X=1.12
LET Y=SQR (X^3+EXP X-LN (3*X))*(1+4*SIN (X/2)+5*EXP (SIN X))
PRINT Y
И записать результат вычислений, который высветится на экране (у меня получилось 27.839525 но у вас может немного отличаться).
Надеюсь, что в вашей версии бейсика нет отличий от той, что у меня (она весьма старая).