Дан массив a(m), m≤16 . найти сумму s элементов, удовлетворяющих условию ai > 12 , и их количество k . вывести на печать исходный массив и величины s и k
Const n=16; var a: array[1..n] of integer; i,k,s,m: integer; begin Randomize; writeln('размер массива(<=16): '); readln(m); s:=0; k:=0; Writeln('Исходный массив'); for i:=1 to m do begin a[i]:=Random(100)-50; Write(a[i]:4); if a[i]>12 then begin s:=s+a[i]; k:=k+1; end; end; Writeln; writeln('число элементов >12 = ',k,' сумма = ',s); end.
1. В школах всегда говорят, что лучший пример алгоритма - какой-нибудь кулинарный рецепт.
Линейный алгоритм приготовления колобка.
Колобок картофельный Картофель (1,2 кг) ; Яйца (2 шт.) ; Мука пшеничная (100 г) ; Сухари (60 г) ; Жир для жарки (200 г) . В протертый отварной картофель добавить 3 столовые ложки муки, желтки двух яиц. Хорошо перемешать, посолить и сформировать шарики. (От себя: для пикантности можно добавить мелко нарезанную копченую колбаску или ветчину) . Полученные шарики запанировать в муке, смочить во взбитых белках и обвалять в сухарях. Жарить в кипящем масле до готовности.
Можно еще по сусекам поскрести ;)
2. Ветвление. Сказку не помню, позор мне. Что-то про Илью Муромца. Вот где он стоял на распутье и выбирал дороги: направо пойдешь коня потеряешь, прямо пойдешь голову потеряешь, налево пойдешь и коня и голову потеряешь
Для перевода шестнадцатеричного числа в десятичное необходимо это число представить в виде суммы произведений степеней основания шестнадцатеричной системы счисления на соответствующие цифры в разрядах шестнадцатеричного числа. Для конвертации шестнадцатеричного числа в десятичное необходимо каждую цифру (начиная справа) шестнадцатеричного числа умножить на 16 в степени, соответствующей разряду этой цифры. Например, рассмотрим шестнадцатеричное число C92116. Начните с первой цифры справа (1) и умножьте ее на 160(первый разряд задается нулевой степенью); увеличивайте показатель степени каждый раз, когда вы переходите к следующей цифре (справа налево):116 = 1 x 160 = 1 x 1 (все цифры представлены в десятичной системе за исключением оговоренных случаев)216 = 2 x 161 = 2 x 16916 = 9 x 162 = 9 x 256C = C x 163 = C x 4096 Преобразуйте буквенные символы в десятичные цифры. Цифры имеют одинаковое значение как в десятичной, так и в шестнадцатеричной системах (например, 716 = 710). Для конвертирования буквенных символов шестнадцатеричной системы в цифры десятичной системы смотрите следующий список:A = 10B = 11C = 12D = 13E = 14F = 15
var a: array[1..n] of integer;
i,k,s,m: integer;
begin
Randomize;
writeln('размер массива(<=16): ');
readln(m);
s:=0; k:=0;
Writeln('Исходный массив');
for i:=1 to m do
begin
a[i]:=Random(100)-50;
Write(a[i]:4);
if a[i]>12 then
begin
s:=s+a[i]; k:=k+1;
end;
end;
Writeln; writeln('число элементов >12 = ',k,' сумма = ',s);
end.