Найти количество отрицательных элементов. Заменить этим значением все нулевые элементы массива.

@zenitsu · Регистрация: 19.05.2017

Author24 — интернет-сервис помощи студентам

Для зачёта очень нужно, помогите если знаете. Спасибо большое!
В массиве из действительных чисел, элементы которого и их количество вводит пользователь, найти количество отрицательных элементов. Заменить этим значением все нулевые элементы массива.

@AHBAR · 26.05.2017, 08:22

GeorgeLight,

Delphi

program polzovatel;
 
{$APPTYPE CONSOLE}
 
uses
  SysUtils;
VAR
a:array of real;
i,n,k:Integer;
begin
  { TODO -oUser -cConsole Main : Insert code here }
write('n='); readln(n);
SetLength(a,n);
k := 0;
for i := 0 to n-1 do begin
    write('a[',i,']=');
    readln(a[i]);
    if a[i] < 0 then inc(k);
    end;
 
writeln('K=',k);
writeln('Result:');
 
for i := 0 to n-1 do begin
    if a[i] = 0 then a[i] := k;
    writeln(a[i]:4:2);
    end;
 
readln;
end.

@zenitsu · 26.05.2017, 08:34 **[ТС]**

AHBAR, а как написать вводы / выводы не в консольном варианте?

@AHBAR · 26.05.2017, 11:32

Сообщение от GeorgeLight

а как написать вводы / выводы не в консольном варианте?

вводить можно через TEdit, TStringGrid...
выводить через Tedit, TStringGrid, TMemo ...

Delphi

1	readln(n); .. n := StrToFloat(Edit1.Text);

@zenitsu 0 / 0 / 0 Регистрация: 19.05.2017 Сообщений: 163
		1
	Найти количество отрицательных элементов. Заменить этим значением все нулевые элементы массива. 25.05.2017, 08:15. Показов 1613. Ответов 3 Метки нет (Все метки) Для зачёта очень нужно, помогите если знаете. Спасибо большое! В массиве из действительных чисел, элементы которого и их количество вводит пользователь, найти количество отрицательных элементов. Заменить этим значением все нулевые элементы массива. 0

@zenitsu 0 / 0 / 0 Регистрация: 19.05.2017 Сообщений: 163
	26.05.2017, 08:34 [ТС]	3
	AHBAR, а как написать вводы / выводы не в консольном варианте? 0

	26.05.2017, 11:32

Найти количество отрицательных элементов. Заменить этим значением все нулевые элементы массива.

Решение