Паскаль. Пограммирование задач, связанных с обработкой - Форум
Пятница, 09.12.2016, 10:41
Задачи по информатике
Главная | Регистрация | Вход Приветствую Вас Гость | RSS
[ Новые сообщения · Участники · Правила форума · Поиск · RSS ]
Страница 1 из 11
Модератор форума: ignorer, KOT_B_MEIIIKE, PASCAL26, atvrider 
Форум » Решение задач по информатике » Задачи по программированию + блок-схемы » Паскаль. Пограммирование задач, связанных с обработкой (13.04.2010. Массивы)
Паскаль. Пограммирование задач, связанных с обработкой
duxa211183Дата: Пятница, 09.04.2010, 22:41 | Сообщение # 1
Рядовой
Группа: Новичок
Сообщений: 4
[ 0 ]
Статус: Offline
Найти сумму элементов одномерного массива, состоящего из 10 элементов. Разделить каждый элемент исходного массива на полученное значение. Результат получить в том же массиве.
 
zadachkiДата: Понедельник, 12.04.2010, 16:33 | Сообщение # 2
Admin
Группа: Администраторы
Сообщений: 116
[ 9 ]
Статус: Offline
Code

program p1;
var    
    a : array [1..10] of real;
    i: integer;
    sum:real;
begin
sum:=0;
writeln('Введите 10 элементов массива');
for i:=1 to 10 do
    begin
    read(a[i]);
    sum:=sum+a[i];
    end;

writeln('');
if sum<>0 then
  begin
  for i:=1 to 10 do
    begin
    a[i]:=a[i]/sum;
    write(a[i]:2:2,' ');
    end;
  end
else writeln('Сумма = 0');
readln;
end.
 
Форум » Решение задач по информатике » Задачи по программированию + блок-схемы » Паскаль. Пограммирование задач, связанных с обработкой (13.04.2010. Массивы)
Страница 1 из 11
Поиск:

Copyright MyCorp © 2016