Составить блок-схему к готовому коду

@klubni4ka · Регистрация: 11.01.2011

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

здравствуйте!
помогите, пожалуйста, сделать блок-схему и программу по задаче:
Сформировать и вывести на печать массив Е (10), элементы которого принадлежат интервалу [-100;100]. В массиве Е найти наименьший по модулю элемент, вывести его индекс, подсчитать количество элементов кратных 5.

Заранее огромное спасибо!

@Hidalgo08 · 12.01.2011, 01:26

Pascal

{ наименьший по модулю элемент }
uses crt;
var
    a : array [1..100] of integer;
    i, n, min, pos : integer;
begin 
clrscr;
    writeln(' n = ');
    readln(n);
        for i := 1 to n do
         begin
          writeln(' a[', i ,'] = ');
          readln( a[i] );
         end;
        writeln(' Is mas -->> ');
        for i := 1 to n do
            write(a[i],'  ');
        writeln;
            min := abs( a[1] );
            for i := 1 to n do
                if abs( a[i]) < min then 
                    min:=abs(a[i]);
            writeln(' |min| = ', min);  
readkey;
end.

Pascal

{ ... кратные 5... }
...
for i:=1 to 5 do
    if a[ i ] mod 5 = 0 then 
        writeln(' element = ', a[i] , ' Indeks = ', i );
...

@klubni4ka 1 / 1 / 0 Регистрация: 11.01.2011 Сообщений: 99
		1
	Составить блок-схему к готовому коду 11.01.2011, 15:03. Показов 1168. Ответов 1 Метки нет (Все метки) здравствуйте! помогите, пожалуйста, сделать блок-схему и программу по задаче: Сформировать и вывести на печать массив Е (10), элементы которого принадлежат интервалу [-100;100]. В массиве Е найти наименьший по модулю элемент, вывести его индекс, подсчитать количество элементов кратных 5. Заранее огромное спасибо! 0

	12.01.2011, 01:26

Составить блок-схему к готовому коду

Решение