1. Чтобы решить задачу, надо определить, какое количество варенья съест Машенька за 20 дней. Вначале вычислим это количество в ложках, если известно, что за день она съедает по 5 ложек варенья:
5 * 20 = 100 ложек.
2. Теперь переведем 100 ложек варенья в граммы, если известно, что каждая ложка помещает 5 г варенья:
100 * 5 = 500 грамм.
3. Если исходное количество варенья составляет 650 грамм, тогда вычтем из этой массы ту часть, что съест Машенька за 20 дней и получим массу оставшегося варенья через 20 дней:
650 - 500 = 150 грамм.
ответ: получили, что через 20 дней в банке останется всего 150 грамм варенья.
1)
var a: array [1..10] of integer;
i, max, min: integer;
begin
for i := 1 to 10 do
begin
write('Введите ', i,' элемент массива: ');
readln(a[i]);
end;
max := a[1];
min := a[1];
for i := 2 to 10 do
begin
if a[i] < min then min := a[i];
if a[i] > max then max := a[i];
end;
writeln();
writeln('Максимальный эл.: ', max);
writeln('Минимальный эл.: ', min);
end.
2)
var a: array [1..10] of integer;
i, negCounter: integer;
begin
for i := 1 to 10 do
begin
write('Введите ', i,' элемент массива: ');
readln(a[i]);
end;
negCounter := 0;
for i := 1 to 10 do
begin
if a[i] < 0 then inc(negCounter);
end;
writeln();
writeln('Кол-во отрицательных: ', negCounter);
end.
3)
var a: array [1..10] of integer;
i, sum: integer;
begin
for i := 1 to 10 do
begin
write('Введите ', i,' элемент массива: ');
readln(a[i]);
end;
sum := 0;
for i := 1 to 10 do
sum := sum + sqr(a[i]);
writeln();
writeln('Сумма квадратов элементов: ', sum);
end.
