Дан массив из 20 произвольных элементов, каждый из которых не больше 50. Найдите количество элементов, оканчивающихся на 2. ПОЖАЛУЙСТА ПОМОГИТЕ !!! ПРОШУ!!!
Answers & Comments
restIess
Pascal:vari,counter : integer;arr : array[1..20] of integer;beginrandomize; counter := 0; for i:= 1 to 20 do begin arr[i] := random (100) - 50; write(arr[i],' '); end; for i:= 1 to 20 do if (abs(arr[i]) mod 10 = 2) then counter := counter + 1; writeln(); writeln(counter);end.
Answers & Comments