4 года назад

В массиве подсчитать число соседств 3 ненулевых чисел. Элементов массива 12. случайно [1;17]

Знания

Информатика

1 ответ:

djos4 года назад

0 0

Ответ: 12-2=10 (<em>т.к. нулевых не может быть по условию [1,17]</em>)

Читайте также

КАКИЕ БЫВАЮТ ВИДЫ ОБРАБОТКИ ИНФОРМАЦИИ?ПОМОГИТЕ

Алиса Клим

Текстовая — передаваемая в виде символов, предназначенных обозначать лексемы языка. (книги)
Числовая — в виде цифр и знаков, обозначающих математические действия. (числа)
Графическая — в виде изображений, предметов, графиков. (рисунки)
Звуковая — устная или в виде записи передача лексем языка аудиальным путём. (звуки)
<span>Смешанная - комбинация нескольких видов информации (фильм например: комбинация графической и звуковой информации) </span>

0 0

4 года назад

Программа с предусловием "выведите квадрат натуральных чисел, не певышащих 50" на языке паскаль

Вячеслав Белоногов

Var
A:integer;
Begin
For A:= 1 to 50 do
WriteLn(A*A);
End.

0 0

4 года назад

Дан фрагмент программы на вход которого поданы значения N равен 10 и М равен 2.чему будет равно на выходе из фрагмента значение

Елена Кочегарская

SUM = 25 я думаю такой ответ

0 0

4 года назад

Это задание по информатике 8 класс.Решите пожалуйста...

cvetkova163

..........................................

0 0

3 года назад

1. В одномерном массиве произвольных чисел А(10) положительные элементы уменьшить в двое, а отрицательные элементы заменить на з

OsmanDanil

1) var a:array[1..10] of real;
i:integer;

begin

randomize;
for i:=1 to 10 do begin
a[i]:= random(200) -100;
write(a[i]:5); end;

writeln;

for i:=1 to 10 do
if a[i]>=0 then a[i]:=a[i]/2 else a[i]:=i;
write(a[i]:5);

end.

2) var a:array[1..1000] of real;
s1,s2:real;
i,n:integer;
begin
write('Введите кол-во элементов: '); readln(n);
writeln('Введите элементы массивы: ');
for i:=1 to n do
read(a[i]);

s1:=0; s2:=0;
for i:=1 to n do
if odd(i) then s1:=s1+a[i] else s2:=s2+a[i];

writeln('Сумма элементов с четными номерами: ',s2);
writeln('Сумма элементов с нечетными номерами: ',s1);
end.

0 0

4 года назад