Автор Алевтина задал вопрос в разделе Другие языки и технологии
Как решить задачи в Паскале? и получил лучший ответ
Ответ от Евгений Пальмов[гуру]
Uses crt; Var i :integer; M :array[1..12] of integer; Function FRACS(A:integer):integer; Begin FRACS:=Round(Frac(A/10)*10); End; Begin Clrscr; Randomize; For i:=1 to 12 do Begin M[ i ]:=-10+Random(71); write(M[ i ],\' \'); End; Writeln; For i:=1 to 12 do Begin If (M[ i ]>10) and (FRACS(M[ i ])<>0) and (FRACS(M[ i ]) mod 2=0) and (M[ i ] mod FRACS(M[ i ])=0) Then M[ i ]:=0; Write(M[ i ],\' \'); End; Readkey; End. Это первое задание. Если я правильно понял удалить = заменить на 0? Заменяет только если число двухзначное (это легко подкорректировать если нужно) , а также если оно не оканчивается на 0 (Ибо делить на ноль нельзя).
Если надо полное описание с Begin, var и так далее или если какая-то часть не работает - пишите мне лично, с радостью отвечу (Или в коменты) . Mass - массив Mass2 - массив для задачи 2 (количество чисел 12*3=36. Это в случае если каждому числ