Program Task;
Var a: Array [1..40] of Integer;
b: Real;
c, d, e, i: Integer;
Begin
Randomize;
For i := 1 To 40 Do
a[i] := Random(20 + 1);
WriteLn('Массив:');
For i := 1 To 40 Do
Write(a[i], ' ');
WriteLn;
For i := 1 To 40 Do
Begin
If a[i] Mod 2 = 1 Then
Begin
b := b + a[i];
c := c + 1;
End;
If a[i] <= 10 Then
d := d + a[i];
If a[i] Mod 3 = 0 Then
e := e + a[i];
End;
WriteLn('Среднее арифметическое нечётных чисел: ', (b / c):2:2);
WriteLn('Сумма чисел, не превышающих 10: ', d);
WriteLn('Сумма чисел кратных 3: ', e);
ReadLn;
<span>End.</span>
1)20+50+63=133(всего денег потрачено на продукты).
2) 500-133=367(остаток денег, после покупки продуктов)
а как в паскале делать, не догадываюсь, что если, то есть) не судите строго, хоть чем-то помогла))
Ответ:
1. нет ответа
4. а) сжать изображения
б) удалить встроенные шрифты
5 фотографий
Объяснение:
1. таблицы наверное забыли загрузить...
4. а) с помощью любого графического редактора изменить параметры изображений
б) удалить встроенные шрифты
в) можно еще упаковать документ с помощью архиватора, но самый лучший выход почистить наконец флешку от ненужного хлама. Но это для ответа не годится, т. к. не соблюдаются условия задачи.
5.
1 Гб = 1 * 1024 * 1024 = 1048576 Кб - память фотоаппарата
1048576 Кб / 30720 Кб = 34,133333333333333333333333333333 - всего фотографий
34 - 29 = 5 - осталось