|
|
Регистрация Восстановить пароль |
Регистрация | Задать вопрос |
Заплачу за решение |
Новые сообщения |
Сообщения за день |
Расширенный поиск |
Правила |
Всё прочитано |
|
Опции темы | Поиск в этой теме |
01.12.2010, 18:42 | #1 |
Новичок
Джуниор
Регистрация: 01.12.2010
Сообщений: 2
|
работа с одномерными массивами(блок-схема)
Помогите пожалуйста составить блок схему.Буду очень благодарен.Очень нужно.Заранее спасибо
Работа с одномерными массивами: Вычисление в одномерном массиве целой части среднего значения всех положительных четных по величине чисел. Длина массива вводится с клавиатуры. Печатать элементы массива по : штук 8 формату:8 тип обрабатываемых данных:Целые |
02.12.2010, 08:56 | #2 |
Новичок
Джуниор
Регистрация: 01.12.2010
Сообщений: 2
|
Var
a:array[1..100]of integer; S,i,N,k:integer; sr:real; fin, fout:text; label vvod; begin assign (fin,'s:\kurs_1\_Data\Dati.txt'); reset(fin); assign(Fout,'lab4.txt'); rewrite(fout); vvod:writeln('vvedite dlinu massiva'); readln(N); if(N<1) or (N>100) then goto vvod; for i:=1 to N do begin readln(fin,a[i]) end; for i:=1 to N do begin write(fout,a[i]:8); if i mod 8=0 then writeln(fout); end; k:=0; s:=0; for i:=1 to N do begin write(fout,a[i]); if a[i] mod 2 and a[i]>0 then writeln(fout); begin k:=k+1; s:=s+a[i]; end; |
Похожие темы | ||||
Тема | Автор | Раздел | Ответов | Последнее сообщение |
Работа с одномерными массивами в Delphi 7.0 | Димкоff | Помощь студентам | 3 | 04.12.2012 20:01 |
Организация циклов и работа с одномерными массивами | LegionuS | Паскаль, Turbo Pascal, PascalABC.NET | 1 | 28.09.2010 15:19 |
Работа с одномерными и двумерными массивами в Delphi | arhaon | Помощь студентам | 4 | 10.06.2010 15:50 |
Работа с одномерными массивами (Паскаль). | Theory | Помощь студентам | 1 | 14.12.2009 21:58 |