//PascalABC.Net 3.2
begin
var a: array of integer;
setLength (a, readinteger('Введите размерность массива: '));
var count:=0;
for var i:=0 to length(a)-1 do a[i]:=readinteger ('Введите элемент: ');
for var i:=1 to length(a)-1 do if (a[i-1]*a[i])<0 then count+=1;
write ('Кол-во раз: ', count);
end.

0 0

1 год назад

Прочитать ещё 2 ответа

Срочно! Постройте алгоритм. Написать последовательность команд, с помощью которых вы найдете минимальное значение из четырех зна

Blekca [2]

Примерно так:
min=a[0];
for (int i=0, i<4, i++)
if(a[i]<min)
min=a[i];

здесь ты в переменную min записываешь минимальное значение. лучше первое значение из массива присваивать(или нулевое, как у меня).
проходишь циклом по массиву и сравниваешь значение min со значениями из масива. если какое-то окажется меньше, ты его записываешь в переменную min
если некоторые переменные окажутся одинаковыми, то ничего не произойдет :)
например
7 1 1 5
запишется первая единица. и все

0 0

4 года назад

Помогите решить задачу на переливание: В бочке имеется 18 л бензина. Имеется 2 ведра объёмом по 7 л, в которые нужно налить по 6

angelamarina

В 1-ое ведро налить 1 целый черпак и половину черпака, а во второе тоже самое

0 0

3 года назад