Program primer; //добавили точку с запятой (отделяем операторов друг от друга)
Var a, b, s, p: integer;
Begin //убрали точку с запятой (после begin точка с запятой не ставится)
Write('Введите стороны прямоугольника = ');//добавили скобку и точку с запятой (после оператора write в скобках указывается что выводится на экран)
ReadLn(a,b);
P:=a+b;//добавили двоеточие (оператор присваивания :=)
S:=a*b;//добавили двоеточие, заменили знак × на знак * (звездочку - оператор умножения)
WriteLn('Площадь = ',s);//добавили запятую (при вводе и выводе переменные отделяются запятыми, вывод текста от переменных тоже)
WriteLn('Периметр = ',p);//добавили запятую
End.//добавили точку (окончания программы)
Объяснение:
Поправили ещё кавычки вместо знака ‘ поставила знак '
Заменили Writeln на Write в 4 строке, чтобы ввод осуществлялся в той же строке
Program primer; //добавили точку с запятой (отделяем операторов друг от друга)
Var a, b, s, p: integer;
Begin //убрали точку с запятой (после begin точка с запятой не ставится)
Write('Введите стороны прямоугольника = ');//добавили скобку и точку с запятой (после оператора write в скобках указывается что выводится на экран)
ReadLn(a,b);
P:=a+b;//добавили двоеточие (оператор присваивания :=)
S:=a*b;//добавили двоеточие, заменили знак × на знак * (звездочку - оператор умножения)
WriteLn('Площадь = ',s);//добавили запятую (при вводе и выводе переменные отделяются запятыми, вывод текста от переменных тоже)
WriteLn('Периметр = ',p);//добавили запятую
End.//добавили точку (окончания программы)
Объяснение:
Поправили ещё кавычки вместо знака ‘ поставила знак '
Заменили Writeln на Write в 4 строке, чтобы ввод осуществлялся в той же строке
Паскалем не владею но алгоритм такой . 1. создаёшь массив Целочисленный . 2. Считываешь туда числа . 3.Создаёшь целочисленную переменную min . 4 Присваеваешь ей значение 1 Элемента массива ( если не ошибаюсь в паскале тоже он под индексом 0 ) 5. Cоздаёшь цикл от 1 до Длинны массива . 6. Внутри цикла через if сравниваешь , если массив под индексом 'i' < чем min , тогда min = значению массива под индексом 1.
Объяснение: