Question

Исправьте ошибки срочно!!! const n=100 program Zadacha1; ver a: array [1.. n] of real; x:: real; i: integer; began; writeln (Введите элементы массива'); for i;= 1 to n do red (a [i]); writeln ('Введите значение для посика') read (x); for i:=1 to n do if a[i] == x then writeln ('на ', i, 'месте массива находится заданный элемент', x:8:2); enn!

Answer 1

Ответ:

const n=100;

program Zadacha1;

ver a: array [1.. n] of real;

x:: real; i: integer;

begin;

writeln ('Введите элементы массива');

for i = 1 to n do red (a [i])

writeln ('Введите значение для поиcка')

read (x);

for i:=1 to n do

if a[i] == x then

writeln ('на ', i, 'месте массива находится заданный элемент', x:8:2);

end!

Объяснение:

В первой строке пропустил ";".

В пятой написал began, а правильно begin.

В седьмой между i и = не должна быть ";", при этом для цикла for нельзя ставить ";".

В восьмой не посика, а поиска, еще забыл ";".

И на последней строчке не enn, a end.

Answer 2

Код, исправленный от ошибок:

const n = 100; program zadacha1; var a: array[1..n] of real; x: real; i: integer; begin writeln('Введите элементы массива'); for i := 1 to n do readln(a[i]); writeln('Введите значение для поиска'); readln(x); for i := 1 to n do if a[i] = x then writeln('на ', i, 'месте массива находится заданный элемент ', x:8:2); end.

Объяснение исправлений: 1. Исправлена опечатка в названии переменной "began" на "begin". 2. Заменены знаки "::" на ":" в объявлении переменной "x". 3. Исправлено неправильное использование функции "read", заменено на "readln" для ввода значений элементов массива и для ввода значения для поиска. 4. Заменен символ "==" на "=" для сравнения элементов массива с заданным значением. 5. Исправлено написание "enn!" на "end." для завершения программы.