Форум программистов, компьютерный форум, киберфорум
Наши страницы
Pascal ABC
Войти
Регистрация
Восстановить пароль
 
Рейтинг 4.80/5: Рейтинг темы: голосов - 5, средняя оценка - 4.80
Vampir2010
0 / 0 / 0
Регистрация: 06.01.2013
Сообщений: 15
1

Ввести файл F из 13 элементов

14.12.2013, 01:19. Просмотров 892. Ответов 1
Метки нет (Все метки)

Ввести файл F из 13 элементов. Определить сумму элементов, которые при умножении на 4 дают значение большее, чем при возведении в квадрат.
0
Лучшие ответы (1)
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
14.12.2013, 01:19
Ответы с готовыми решениями:

Ввести файл F из 10 элементов. Найти сумму индексов четных элементов файла
Составить блок – схему и алгоритм решения следующих задач: Ввести файл F из...

Ввести файл F из 13 элементов
Ввести файл F из 13 элементов. Определить сумму элементов, которые при...

Ввести файл F из 15 элементов
Ввести файл F из 15 элементов. Определить в нём среднее ...

Ввести файл F из 14 элементов
Ввести файл F из 14 элементов. Определить сумму квадратов индексов элементов...

Ввести файл целых чисел. подсчитать количество положительных элементов, если К>0, то подписать в конце файла 1
Ввести файл целых чисел. подсчитать количество положительных элементов, если...

1
Romalei
109 / 50 / 55
Регистрация: 17.09.2013
Сообщений: 298
14.12.2013, 01:33 2
Лучший ответ Сообщение было отмечено Vampir2010 как решение

Решение

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
uses crt;
var
sum,i:integer;
a:array[1..13] of integer;
t:text;
begin
sum:=0;
assign(t,'F.txt');
writeln('Введите элементы массива:');
for i:=1 to 13 do readln(a[i]);
rewrite(t);
for i:=1 to 13 do write(t,a[i],' ');
close(t);
write('Элементы массива, удовлетворяющие условию: ');
for i:=1 to 13 do
 if ((a[i]*4)>sqr(a[i])) then
   begin
    write(a[i],' ');
    inc(sum,a[i]);
   end;
writeln;
writeln('Сумма = ',sum);
end.
1
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
14.12.2013, 01:33

Ввести файл целых чисел и получить на его основе новый файл
Помогите пожалуйста Ввести файл целых чисел. Получить на его основе новый...

Ввести файл F1. Записать в файл F2 компоненты файла F1 в обратном порядке
Ввести файл F1. Записать в файл F2 компоненты файла F1 в обратном порядке. В...

Ввести в файл данные о пяти работниках и вывести в другой файл максимальный оклад
Задача на pascal abc,решить задачу используя type Помогите пожалуйста очень...


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
2
Ответ Создать тему
Опции темы

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2018, vBulletin Solutions, Inc.
Рейтинг@Mail.ru