girniy.ru 1

В коллекции нумизмата не более чем 90 монет всех возможных достоинств. Определить, сколько монет достоинством в 20 и 50 рублей и каковы их порядковые номера.


Для решения задачи:



Переменные:

MAS- массив чисел;

NUM2-массив, содержащий порядковые номера монет по 20 рублей;

NUM5-массив, содержащий порядковые номера монет по 50 рублей;

N- размер массива;

I-переменная цикла;

М20-количество монет по 20 рублей;

М50-количество монет по 50 рублей.


PROGRAM PRG4_6;

CONST M = 90;

VAR MAS, NUM2, NUM5 :ARRAY[1..M] OF INTEGER;

M20, M50, I, N : INTEGER;


BEGIN

WRITE(‘ВВЕДИТЕ РАЗМЕР МАССИВА N =’);

READLN(N);

M20 := 0;M50 := 0;

WRITLEN(‘ВВЕДИТЕ ‘N,’ ЭЛЕМЕНТОВ МАССИВА’);

FOR I := 1 TO N DO


BEGIN

READ(MAS[I]);

CASE MAS[I] OF

20 : BEGIN M20 := M20+1;NUM2[M20] ;= I END;

50 : BEGIN M50 :=M50+1;NUM5[M20] ;=I END;

END;

END;

WRITELN(‘МОНЕТ ДОСТОИНСТВОМ В 20 РУБЛЕЙ ‘, М20, ‘ ШТУК’);

WRITELN(‘ИХ ПОРЯДКОВЫЕ НОМЕРА:’);

FOR I := 1 TO M20 DO

WRITE (NUM2[I] :3);

WRITELN;

WRITELN(‘МОНЕТ ДОСТОИНСТВОМ В 50 РУБЛЕЙ ‘,М50, ‘ ШТУК);

WRITELN(‘ИХ ПОРЯДКОВЫЕ НОМЕРА:’);

FOR I:=1 TO M20 DO

WRITE(NUM5[I]: 3);

WRITELN;

END.