program n;
uses crt;
var i,s:integer;
begin
s:=0;
for i:=50 to 600 do
if (i mod 8)=0 then s:=s+i;
writeln(s);
<span>end.</span>
Решите задачи черезCodeblocks(TXLib.h) Условие: 1) заполнить массив числами 10,12,14,16,18,20,22,24,26,28,30. 2) Заполнить масс
Korosta
Include <stdio.h>
int main ()
{
const int SIZE = 12;
int array [SIZE] = {10};
for (int i = 1; i < SIZE; i++)//Task1
array[i] = array[i - 1] + 2;
//Task2
array[0] = 1;
for (int i = 1; i < SIZE; i++)
array[i] = array[i - 1] * 2;
//Task3
int Data[SIZE - 2] = {};
for (int i = 0; i < SIZE - 2; i++)
scanf ("%d", &Data[i]);
for (int i = 0; i < SIZE; i++)
printf ("[%d] = %d", i, Data[i]);
//task 4 = task 3, но SIZE = 7
}
Ответ:
2
Объяснение:
Алгорим тут, мягко говоря, странноват.
t :=a[i];
a[i-1] := a[0];
a[0] := t
Никакого t здесь не нужно, достаточно написать
a[i-1] := a[0];
a[0] := a[i]
В цикле, начиная с третьего по порядку элемента, производится его сравнение с самым первым элементом (вначале его значение равно 5).
Присваивание a[i-1] := a[0] в теле цикла никак на a[0] не влияет и на сравнение не влияет, поэтому забудем о нем.
Таким образом, существенным оказывается лишь факт попадания на место a[0] элемента, меньшего a[0] и каждое такое попадание увеличивает счетчик с на 1. Первонаяальное значение с нулевое, так что с отражает количество попаданий в a[0] элементов, меньших его значения. Анализ значений элементов с a[2] по a[9] показывает, что сначала в a[0] попадает 2 (2 < 5), а затем 0 ( 0 < 2). Поэтому с = 2.
Const N=10;
var i, m: integer;
a: array [1..N] of integer;
begin
for i := 1 to N do
begin
a[i] := random(50) - 25;
writeln('[', i, '] => ', a[i]);
end;
i := 1;
while (i <= N) do
begin
if (m > a[i]) then m := a[i];
i := i + 2;
end;
writeln(m);
<span>end.
</span>
Я непойму твой вопрос! Объесни чётко!