Где ошибка??
const n=10;
type TMas=array[1..n] of integer;
var mas1:TMas;
procedure ImputMas1(var masTMas: integer);
var i: integer;
begin for i:=1 to 10 do
begin
mas1[i]:=random(n);
Write(mas1[i]:3);
end;
end.
Предмет:
ИнформатикаАвтор:
laytonВот так правильно
Program Massiv;
const n=10;type TMas=array[1..n] of integer;var mas1:TMas;procedure InputMas1(var mas1:TMas);var i: integer;begin for i:=1 to 10 do begin mas1[i]:=random(n); Write(mas1[i]:3); end;begin
InputMas1(mas1); readkey; end.
Автор:
bellavmerДобавить свой ответ
в первый год урожайность была 360 центнеров во второй год 396 а в третий год неизвестно средняя урожайность тоже не известна на сколько процентов выросла урожайность сахарной свеклы второго года по сравнению с урожайностью первого года?урожайность сахарной свеклы третьего года выросла на 5 % по сравнению с урожайностью второго года. найдите урожайность сахарной свеклы за третий год.Найдите среднюю урожайность сахарной свеклы за 1 га за 3 года.
Предмет:
МатематикаАвтор:
thomasr3pbОтветов:
Смотреть
Переведите на французский:
Мой папа
Твоя бабушка
Её дочь
Эти дети
Переведите на французский слова:
звонить
приезжать*
зваться* (ед.ч)
Переведите на французский:
-"Дедушка звонит своим внучкам"?
-Да. Он звонит Мишель, Клод и Анне. Он любит своих внучек и дочь."
Предмет:
Другие предметыАвтор:
iglesiasОтветов:
Смотреть
С какими из указанных соединений, формулы которых: KCl, Na2S, Ca(OH)2, MgO, AgNO3, SO2, H2SO4, P2O5, K2CO3 может реагировать соляная кислота? Составьте уравнения реакций. Заранее большое спасибо:)
Разберите по сотаву слово: Информационное.
Вставьте пропущенную букву: ц...клевать пол.
Пожалуйста!!!!!!!!!!!!!!
Предмет:
Русский языкАвтор:
judeblcaОтветов:
Смотреть