Дан массив целых чисел,состоящий из 25 элементов.заполните его с клавиатуры .найти: сумму элементов имеющих нечётные индексы; подсчитать количество элементов массива,значения которых больше заданного числа а и кратны 5
Const n=25; var b:array[1..n] of integer; s,k,a,i:integer; begin writeln('vvedite massiv'); for i:=1 to n do readln(b[i]); writeln('a='); readln(a); k:=0; s:=0; for i:=1 to n do if i mod 2=1 then s:=s+b[i]; if (b[i]>a) and (b[i] mod 5=0) then inc(k); writeln ('s=',s,' k=',k); readln; end.
Var a,b,c,d:integer; begin writeln('введите первое число'); readln(a); writeln('введите второе число'); readln(b); c:=a; d:=b; if a<b then while b<>1 do begin a:=c*a; b:=b-1; writeln(a); end else while a<>1 do beginb:=d*b; a:=a-1; writeln(b); end; end.
1. запрашиваем первое число 2. получаем первое число 3. запрашиваем второе число 4. получаем второе число 5. приравниваем первое число некоторой переменной. 6. приравниваем второе число некоторой переменной. 7. если первое число больше второго то вычитаем из второго числа 1 и при каждом вычитании приравниваем первое число к произведению первого числа на переменную к которой его приравняли. выводим результат на экран. 8. если второе число больше первого то вычитаем из первого числа 1 и при каждом вычитании приравниваем второе число к произведению второго числа на переменную к которой его приравняли. выводим результат на экран.
1) неверно, потому что изначально Миша хочет только в лес. 2) здесь скорее всего имелось ввиду, что все пойдут в лес. И это верно. Если Света пойдет в лес, то все возьмут корзины и ножики и все пойдут в лес, потому что в лес идет Миша, с ним Настя. Уже идут и Света и Настя в лес, с ними тогда Маша. Света и Настя не идут на рыбалку, значит с ними Гриша, а с Гришей и Алексей. Все пойдут в лес! 3) неверно, т.к. если Миша идет на рыбалку, то с ним Настя. 4) неверно, т.к. Миша хочет в лес независимо от решения Светы, а вместе с Мишей пойдет и Настя, их уже двое
var b:array[1..n] of integer;
s,k,a,i:integer;
begin
writeln('vvedite massiv');
for i:=1 to n do
readln(b[i]);
writeln('a=');
readln(a);
k:=0;
s:=0;
for i:=1 to n do
if i mod 2=1 then s:=s+b[i];
if (b[i]>a) and (b[i] mod 5=0) then inc(k);
writeln ('s=',s,' k=',k);
readln;
end.