Составьте блок-схему алгоритма и программу вычисления в массиве A(10) количества положительных элементов

@Alastor · Регистрация: 09.10.2013

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

Составьте блок-схему алгоритма и программу вычисления в массиве A(10) количества положительных элементов.

@ildwine · 16.10.2013, 18:34

Pascal

var
  a : array[1..10] of integer;
  i, k : byte;
begin
  k := 0;
  randomize;
  for i := 1 to 10 do
  begin 
    a[i] := random(20)-10;
    write(a[i]:5);
    if a[i] > 0 then inc(k)
  end;
  writeln;
  writeln('количество положительных элементов: ', k)
end.

Добавлено через 2 минуты
Или так, если хотите вводить элементы вручную, а не заполнять случайными числами:

Pascal

var
  a : array[1..10] of integer;
  i, k : byte;
begin
  k := 0;
  for i := 1 to 10 do
  begin
    write('введите ', i, ' элемент массива: ');
    readln(a[i])
  end;  
  for i := 1 to 10 do
  begin    
    write(a[i]:5);
    if a[i] > 0 then inc(k)
  end;
  writeln;
  writeln('количество положительных элементов: ', k)
end.

@Alastor 0 / 0 / 0 Регистрация: 09.10.2013 Сообщений: 35
		1
	Составьте блок-схему алгоритма и программу вычисления в массиве A(10) количества положительных элементов 16.10.2013, 18:25. Показов 4390. Ответов 1 Метки нет (Все метки) Составьте блок-схему алгоритма и программу вычисления в массиве A(10) количества положительных элементов. 0

	16.10.2013, 18:34

Составьте блок-схему алгоритма и программу вычисления в массиве A(10) количества положительных элементов

Решение