Решить с "поиска решения" старинную : крестьянин на базаре за 100 рублей купил 100 голов скота. бык стоит 10 рублей, корова 5 рублей, телёнок 50 копеек. сколько быков, коров и телят купил крестьянин?
// PascalABC.NET 3.2, сборка 1362 от 14.12.2016 // Внимание! Если программа не работает, обновите версию!
function MatrCreate(m,n:integer):array[,] of integer; begin Writeln('*** Исходный массив A[',m,',',n,'] ***'); Result:=MatrRandom(m,n,-50,50); Result.Println(4); Writeln(4*n*'-'); end;
procedure Matr2File(a:array[,] of integer; fn:string); begin var f:file of integer; ReWrite(f,fn); foreach var r in a.Rows do foreach var x in r do Write(f,x); f.Close end;
begin var m:=ReadlnInteger('Количество строк в массиве:'); var n:=ReadlnInteger('Количество столбцов в массиве:'); var a:=MatrCreate(m,n); var s:=ReadlnString('Имя файла:'); Matr2File(a,s); Writeln('Работа завершена') end.
9 голов быка 1 корову и 10 телят