Создать блок-схему и программу на языке бейсик для формулы y=5x+7z

Program asd;

var y:real;

x:integer;

begin

writeln('Введите значения  X');

readln(x);

y:=5*x*x-4/2/x+8;

writeln('y=',y);

end.

Неограниченные возможности для обучения без рекламы со Знаниями Плюс

ПОПРОБУЙ СЕГОДНЯ

3.4

Подробнее - на -

Т.к. я не знаю Паскаля могу подсказать только алгоритм.
Тебе нужно сделать 2 переменные: summ(для сохранения суммы) и line(для сохранения номера строки массива, которую ты проверяешь).

Ты должен проверять каждую строчку считывая сумму всех элементов это строки, а так же ты должен сохранять номер строки, которую ты проверяешь. И сохраняешь сумму в переменной summ. Потом ты проверяешь данные переменной summ, если меньше нуля начинаешь проверять следующую строку, если больше тогда переносишь все данные со строки номер line в массив. И начинаешь проверять следующую строку.

Важно: При каждой новой проверке строки обнуляй переменную summ и увеличивай на один переменную line.

Const
  n = 5;{ это позволяет в одном месте изменить количество чисел }

type
  numeric = real;{ это позволяет в одном месте изменить тип чисел }

var
  max, min: numeric;
  i: integer;
  a: array[1..n] of numeric;

begin
  Writeln('Введите ', n, ' произвольных чисел через пробел');
  Read(a[1]);
  min := a[1]; max := min;
  for i := 2 to n do
  begin
    Read(a[i]);
    if max < a[i] then max := a[i]
    else
    if min > a[i] then min := a[i]
  end;
  Writeln('Минимальное введенное: ', min, ', максимальное: ', max)
end.

Тестовое решение:
Введите 5 произвольных чисел через пробел
34 157 -84.54 14.843 -13.64
Минимальное введенное: -84.54, максимальное: 157