Предмет: Информатика,
автор: kk44dd
В одномерном массиве X(10) из положительных и отрицательных чисел найти: количество отрицательных элементов в первой половине массива, поставить найденное значение на место первого элемента.
Первую часть задания я смогла сделать, а вот как поставить значение на место первого элемента я затрудняю. Помогите, пожалуйста, буду очень благодарна!!
Приложения:
Ответы
Автор ответа:
1
Ответ:
end;
mas[ 1 ] := minus;
writeln();
Объяснение:
Чтобы поставить полученное значение на первое место необходимо просто обратиться к первому элементу массива и присвоить ему необходимое значение. Ещё у тебя там ошибка, в условии написано, что элементов 10, а ты создаешь массив только для 5. Исправь
mas: array[1..10] of integer;
Так же исходя из этого, необходимо подправить и тело цикла, потому что остальные 5 элементов останутся не заполненными.
for i:= 1 to 10 do begin
Но в задании так же написано, что нужно посчитать количество отрицательных элементов в первой половине массива. То есть необходимо немного подкорректировать условие подсчета.
if ( mas[ i ] < 0) and ( i <=5 ) then
Вроде всё. Если что-то не понятно, оставь комментарий, помогу.
kk44dd:
Почему то в программе выдает ошибку, если есть возможность, можешь написать полностью ответ? То есть полную программу, как должна выглядить)
Скинь свой код, а я отредактирую. Лень с картинки всё переписывать)
program lab3;
var
mas: array[1..5] of integer;
minus, i:integer;
begin
randomize;
write('Массив: ');
for i := 1 to 5 do begin
mas[i]:=random(11)-1;
write(' ',mas[i]);
if (mas[i] < 0) then
minus:=minus+1;
end;
writeln();
writeln('Отрицательных = ', minus);
end.
var
mas: array[1..5] of integer;
minus, i:integer;
begin
randomize;
write('Массив: ');
for i := 1 to 5 do begin
mas[i]:=random(11)-1;
write(' ',mas[i]);
if (mas[i] < 0) then
minus:=minus+1;
end;
writeln();
writeln('Отрицательных = ', minus);
end.
program lab3;
var
mas: array[1..10] of integer;
minus, i:integer;
begin
randomize;
write('Массив: ');
for i := 1 to 10 do begin
mas[i]:=random(11)-1;
write(' ',mas[i]);
if (mas[i] < 0) and (i <= 5) then
minus:=minus+1;
end;
mas[1] := minus;
writeln();
writeln('Отрицательных = ', minus);
writeln('Первый элемент = ', mas[1])
end.
var
mas: array[1..10] of integer;
minus, i:integer;
begin
randomize;
write('Массив: ');
for i := 1 to 10 do begin
mas[i]:=random(11)-1;
write(' ',mas[i]);
if (mas[i] < 0) and (i <= 5) then
minus:=minus+1;
end;
mas[1] := minus;
writeln();
writeln('Отрицательных = ', minus);
writeln('Первый элемент = ', mas[1])
end.
Странно кстати, что в коде который ты скинула нету правок, на которые я тебе указал)
Это я просто скинула свой исходный, чтобы правильно исправил, чтобы потом не запутаться) Спасибо огромное, очень выручил!!
Похожие вопросы
Предмет: Математика,
автор: pfgfhbkb
Предмет: Математика,
автор: stecyk2014
Предмет: Алгебра,
автор: ekaterinaserge3
Предмет: Русский язык,
автор: matkazina