Форум программистов
 

Восстановите пароль или Зарегистрируйтесь на форуме, о проблемах и с заказом рекламы пишите сюда - alarforum@yandex.ru, проверяйте папку спам!

Вернуться   Форум программистов > Delphi программирование > Паскаль, Turbo Pascal, PascalABC.NET
Регистрация

Восстановить пароль
Повторная активизация e-mail

Купить рекламу на форуме - 42 тыс руб за месяц

Ответ
 
Опции темы Поиск в этой теме
Старый 10.10.2012, 22:13   #1
senspwnz
Новичок
Джуниор
 
Регистрация: 10.10.2012
Сообщений: 1
По умолчанию Одномерный масив ( оч нужно до завтра( 11-13:00))

Цитата:
Дано одновимірний масив Z[10]. Скласти блок-схему і програму для обчислення D=A+B+C, де А – сума тих елементів одновимірного масиву, які діляться на 9, В – сума максимального та мінімального елементів масиву, С – сума тих елементів масиву порядкові номери, яких непарні числа. Організувати ввод елементів масиву з файлу, результат вивести в файл
- украинский вариант
Дан одномерный масив Z[10]. Здаелать блок-схему и програму для обчисления D=A+B+C, где А - сума тех елементов одномерного масива , каторые делятся на 9, В - сумя максимального та минимального елементав масива , С - сума тех елементав масива порядковые номера , которых не парные числа.Огранизовать ввод елементов масива из файла, результат вывисти в файл
senspwnz вне форума Ответить с цитированием
Старый 10.10.2012, 22:25   #2
Mad_Cat
Made In USSR!
Старожил
 
Аватар для Mad_Cat
 
Регистрация: 01.09.2010
Сообщений: 3,657
По умолчанию

Цитата:
Возможно так: (Только я задание С не понял))) )
норм перевод:
Цитата:
С - сумма тех элементов массива порядковые номера , которых нечетные числа
"...В жизни я встречал друзей и врагов.В жизни много всего перевидал.Солнце тело мое жгло, ветер волосы трепал,но я смысла жизни так и не узнал..."
(c) Юрий Клинских aka "Хой"

Последний раз редактировалось Mad_Cat; 10.10.2012 в 23:07.
Mad_Cat вне форума Ответить с цитированием
Старый 10.10.2012, 23:04   #3
domovou
Пользователь
 
Аватар для domovou
 
Регистрация: 01.09.2012
Сообщений: 88
По умолчанию

Возможно так:
Код:
const
     n=10;
type
    mas=array [1..n] of integer;
    fil=file of integer;
var
   f1,f2:fil;
   z:mas;

   k,i,a,b,c,d,max,min:integer;
BEGIN
assign(f1,'01.bat');
rewrite(f1);
a:=0;
max:=0;
min:=0;
for i:=1 to n do
    begin
    z[i]:=random(100);
    write(f1,z[i]);
    if z[i] mod 9=0 then
       a:=a+z[i];
    if z[i]>max then max:=z[i];
    if z[i]<min then min:=z[i];
    end;
b:=max+min;
c:=0;
for i:=1 to n do
    if i mod 2<>0 then c:=c+z[i];
reset(f1);
while not eof(f1) do
      begin
      read(f1,k);
      write(k:3);
      end;
close(f1);
assign(f2,'02.bat');
rewrite(f2);
write(f2,a+b+c);
reset(f2);
read(f2,k);
writeln(#13,k);
close(f2);
readln;
END.
Mad_Cat, Спасибо!
Программист - это не тот, кто пишет программы, а тот, чьи программы работают.

Последний раз редактировалось domovou; 10.10.2012 в 23:21.
domovou вне форума Ответить с цитированием
Ответ


Купить рекламу на форуме - 42 тыс руб за месяц

Опции темы Поиск в этой теме
Поиск в этой теме:

Расширенный поиск


Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
одномерный масив(серии) prelest' Паскаль, Turbo Pascal, PascalABC.NET 8 01.06.2011 18:52
одномерный масив vitik Паскаль, Turbo Pascal, PascalABC.NET 4 10.01.2011 13:28
Задача(одномерный масив) Finn4ik Помощь студентам 2 20.12.2010 22:45
Одномерный масив . Geksogen Паскаль, Turbo Pascal, PascalABC.NET 7 12.09.2010 22:54
Одномерный масив never smile Общие вопросы C/C++ 3 16.03.2010 21:28