12 января, 09:07

Исправьте программу программа не запускается

Program lab3;

var

i, imax, max:integer;

b:array[1 ... 50]of integer;

begin

for i:=1 to 50 do

begin

for b[i]: = ((sin*i) + (exp (sin*i)) (cos*i)) ;

write (b[i],' ') ;

if b[i]>max then

begin

max:=b[i];

imax:=i;

end;

end;

writeln;

writeln ('Максимальное число: ', max,'; его номер: ', imax) ;

end.

+3
Ответы (1)
  1. 12 января, 11:01
    0
    Program lab3;

    var i, imax: integer;

    max: real;

    b:array[1 ... 50]of real;

    begin

    max:=0;

    for i:=1 to 50 do

    begin

    b[i]: = (sin (i) + exp (sin (i))) * cos (i) ;

    write (b[i]:4:2,' ') ;

    if b[i]>max then

    begin

    max:=b[i];

    imax:=i;

    end;

    end;

    writeln;

    writeln ('Максимальное число: ', max:4:2,', его номер: ', imax) ;

    end.

    1.71 - 1.41 - 1.28 0.19 - 0.16 0.46 1.95 - 0.54 - 1.75 - 0.03 0.00 0.04 1.76 0.50

    1.95 - 0.44 0.16 - 0.18 1.30 1.39 - 1.72 - 0.98 0.22 - 0.21 0.74 1.88 - 1.04 - 1.52

    0.11 - 0.09 0.24 1.91 - 0.05 - 1.89 - 0.20 0.08 - 0.09 1.57 0.96 - 1.90 - 0.69 0.21

    -0.22 1.04 1.68 - 1.45 - 1.25 0.19 - 0.17 0.49

    Максимальное число: 1.95, его номер: 7
Знаете ответ на вопрос?
Не уверены в ответе?
Правильный ответ на вопрос 👍 «Исправьте программу программа не запускается Program lab3; var i, imax, max:integer; b:array[1 ... 50]of integer; begin for i:=1 to 50 do ...» по предмету 📗 Информатика. Развернутая система поиска нашего сайта обязательно приведёт вас к нужной информации. Как вариант - оцените ответы на похожие вопросы. Но если вдруг и это не помогло - задавайте свой вопрос знающим оппонентам, которые быстро дадут на него ответ!
Искать готовые ответы
Новые вопросы по информатике
Как графический интерфейс помогает вам в работе?
Ответы (1)
Что такое биологическая наука
Ответы (1)
Дано несколько чисел. Напишите программу, вычисляющую их сумму. Сначала вводится количество чисел N, затем вводится ровно N целых чисел. Используйте цикл for.
Ответы (1)
1. Расставьте знаки в следующей цепочке: 20 байт ... 1000 бит ... 1 Мбайт ... 1024 Кбайт ... 1 Гбайт. 2. Упорядочите величины по возрастанию: 1025 байт, 1 Кбайт, 1 Мбайт, 1023 Кбайт, 1 Тбайт, 1025 бит.
Ответы (1)
При регистрации в компьютерной системе каждому пользователю выдается пароль состоящий из 9 символов и содержащий только символы на 23-символьного алфавита.
Ответы (1)
Игра horizon требует подписки?
Ответы (1)
Имена объектов, находящихся в твоём портфеле
Ответы (2)
Средства связи и телекоииауникации
Ответы (1)
Парядок хронения файлов на диске называется
Ответы (1)
Составить программу В пионерском лагере сформировали 4 отряда. В 1-ом отряде N мальчиков, а девочек в 2 раза больше чем мальчиков. Во 2-ом отряде детей на 5 больше, чем в первом. В 3-м отряде столько же, сколько в 1-ом и во 2-ом вместе взятых.
Ответы (1)