Написать программу в паскль которая вводит с клавиатуры одномерный массив из 10 целых чисел и вычисляет: количество элементов массива значение которых равно единице
Понимаю, что уже не нужно. Но действительных ответов на подобную категорию вопросов не видел. Тем более человек был согласен на простую анимашку. А её создание уже не столь трудоёмко. Хоть один пример будет Пояснения pdf. Примеры в zip архиве преименованном в ods.
Приведу несколько примеров и краткие пояснения по 2м из них 2й Создавлся в Synfig studio (В порядке забавы ). У добство в том , что промежуточные кадры программа считает сама. Т.е не требуется прорисовка всех кадров, составляющих ролик.
P.S. ФАЙЛУ С РАСШИРЕНИЕМ *.ods ЗАМЕНИТЕ РАСШИРЕНИЕ НА *.zip. Полученный архив распакуйте.
var pencil_count,pencil_cost,notebook_count,notebook_cost,pencil_price,notebook_price,total_price:real;
begin write('Введите количество карандашей: '); readln(pencil_count); write('Введите цену одного карандаша: '); readln(pencil_cost); write('Введите количество тетрадей: '); readln(notebook_count); write('Введите цену одной тетради: '); readln(notebook_cost);
pencil_price := pencil_count * pencil_cost; writeln('Стоимость всех карандашей: ', pencil_price);
notebook_price := notebook_count * notebook_cost; writeln('Стоимость всех тетрадей: ', notebook_price);
total_price := pencil_price + notebook_price; writeln('Общая стоимость всей покупки: ', total_price);
Программа:
Pascal:
var
arr: array[1..10] of integer;
i, n: integer;
begin
writeln('Введите массив из 10 чисел:');
for i := 1 to 10 do begin
readln(arr[i]);
if arr[i] = 1 then inc(n);
end;
writeln('Введено ', n, ' единиц(-а).');
end.