Консультация № 137704
21.05.2008, 01:15
0.00 руб.
0 1 1
Дан массив целых чисел из n элементов. Найти и вывести номера элементов, заканчивающихся цифрой 0.

использовать Pascal turbo 7.0

Обсуждение

Неизвестный
21.05.2008, 10:22
общий
это ответ
Здравствуйте, Артемий Тотктонада!

Программа в приложении.
Желаю удачи!

Приложение:
Program Pr137704; Uses CRT; Const M = 16; Var Arr: Array[1..M] of Integer; i, Sum: Integer;Begin ClrScr; Randomize; Sum := 0; WriteLn(‘Исходный случайно заполненный массив‘); for i := 1 to M do begin Arr[i] := Random(100); Write(Arr[i]: 4); end; WriteLn; WriteLn; WriteLn(‘Номера элементов, заканчивающихся на 0:‘); for i := 1 to M do if (Arr[i] mod 10 = 0) then begin if Sum > 0 then Write(‘, ‘); Write(i); inc(Sum); end; WriteLn; WriteLn(‘Всего: ‘, Sum, ‘ элемент(ов).‘); ReadLn;End.
Форма ответа