Программисты, помогите

Другу, чтобы получить норм оценку за год нужно решить задачу, и он, почему-то, обратился ко мне. Вот задача:
В своих запасах меда мишка считает большими горшочки весом от 12 кг. Подсчитайте запасы меда мишки в больших горшочках.
Формат данных:
Входные:n



| Кол-во горшков: 1|






6



a1,a2 ... an |
Вес каждого 0

|




20 7 10 12 11 8


Выходные: S

|

Запасы меда

|








32


В информатике я не оч силен, но оценка хорошая, ему срочно нужно, т.к. идет на золотой диплом. Прошу без троллинга, задача 9 класс, умников прошу, вместо того чтобы умничать, написать решение. Отблагодарю чем смогу. Прога паскаль абц.
Между 1 Модеры, закройте или удалите тему, уже не надо мне, всем, кроме недо-троллей, спасибо за ответы.

Какой язык С++, Паскаль, Java? Или что это за задача вообще.

NeoSpy сказал(а):↑

Какой язык С++, Паскаль, Java? Или что это за задача вообще.

Нажмите, чтобы раскрыть...

Сорь, забыл написать, паскаль абц.

Изи - золотой диплом..
Можешь лучше сфотографировать задание,а-то написал ты как бы не очень понятно!

WhiteDoter сказал(а):↑

Сорь, забыл написать, паскаль абц.

Нажмите, чтобы раскрыть...

Паскаль не учил. Ничем не помогу.

NeoSpy сказал(а):↑

Паскаль не учил. Ничем не помогу.

Нажмите, чтобы раскрыть...

ну, спасибо, что хоть посмотрел, а не как эти.

не совсем понятно условие, если тебе друг написал текстом, а потом ты еще сюда написал своим текстом, может быть что-то утеряно. Так что желательно скрин оригинала. В частности, что это за числа: 20 7 10 12 11 8 - это какие то статические которые уже заданы? И что означает: Выходные: S Запасы меда 32, типа нужно высчитать большие горшки, чтобы вышло 32?
Может я и сам не совсем корректно написал, но думаю разберешься :). Ну а так по сути, золотую медаль нид заслужить, для чего и была заданная сие задачка.

PiXaJIbI4 сказал(а):↑

не совсем понятно условие, если тебе друг написал текстом, а потом ты еще сюда написал своим текстом, может быть что-то утеряно. Так что желательно скрин оригинала. В частности, что это за числа: 20 7 10 12 11 8 - это какие то статические которые уже заданы? И что означает: Выходные: S Запасы меда 32, типа нужно высчитать большие горшки, чтобы вышло 32?
Может я и сам не совсем корректно написал, но думаю разберешься :). Ну а так по сути, золотую медаль нид заслужить, для чего и была заданная сие задачка.

Нажмите, чтобы раскрыть...

Так вот я сам не понимаю, эти данные были в форме таблицы, я написал точь в точь, как было, только без таблицы, я сам чет не догнал, как там, думал мб че не понимаю.

WhiteDoter сказал(а):↑

Так вот я сам не понимаю, эти данные были в форме таблицы, я написал точь в точь, как было, только без таблицы, я сам чет не догнал, как там, думал мб че не понимаю.

Нажмите, чтобы раскрыть...

Лучше сфоткай

парню пиши, норм помогает.

Спойлер: "ссылка на e-mail"

marketDnota@yandex.ru

Черт, паскаль учил три года назад, плохо помню так как два следующих С, сори чувак, лень вспоминать)

c0nversion сказал(а):↑

Лучше сфоткай

Нажмите, чтобы раскрыть...

Шрифт очень мелкий, не видно на фотке.

WhiteDoter сказал(а):↑

Шрифт очень мелкий, не видно на фотке.

Нажмите, чтобы раскрыть...

Сам таблицу сделай...И скинь word 5 sec je

объявляешь переменные
считываешь количество горшков
в цикле ( считываешь вес горшка, если он более или равен 12, сумма = сумма + вес горшка )
печатаешь сумму

ПАСКАЛЬ НЕ ЗНАЮ, ЗАДАЧА ИЗИ, ВОТ АЛГОРИТМ, ЕСЛИ ОН ДЕЙСТВИТЕЛЬНО ЗАСЛУЖИВАЕТ ХОРОШУЮ ОЦЕНКУ, ТО ОН ОФОРМИТ ПРАВИЛЬНО

cs2 сказал(а):↑

Если я правильно понял условие и надо посчитать вес мёда только>=12кг(опираясь на пример в условии), то могу предложить такое решение(работа с файлами):
var n,i,s:integer;f1,f2:text;
a:array[1..100] of integer;
begin
assign(f1,'название входного файла.txt');
assign(f2,'название выходного файла.txt');
reset(f1);rewrite(f2)
readln(f1,n);
for i:=1 to n do
begin
read(f1,a{i}); //только скобки квадратные после а, не знаю почему не написались
if a>=12 then
s:=s+a{i};
end;
write(f2,s);
close(f1);
close(f2);
end.

Нажмите, чтобы раскрыть...

нифига себя, спасибо, но мы еще assign не учили:D

cs2 сказал(а):↑

Если я правильно понял условие и надо посчитать вес мёда только>=12кг(опираясь на пример в условии), то могу предложить такое решение(работа с файлами):
var n,i,s:integer;f1,f2:text;
a:array[1..100] of integer;
begin
assign(f1,'название входного файла.txt');
assign(f2,'название выходного файла.txt');
reset(f1);rewrite(f2)
readln(f1,n);
for i:=1 to n do
begin
read(f1,a{i}); //только скобки квадратные после а, не знаю почему не написались
if a>=12 then
s:=s+a{i};
end;
write(f2,s);
close(f1);
close(f2);
end.

Нажмите, чтобы раскрыть...

Через Writeln; и Readln; 9 класс же

Reyk сказал(а):↑

Через Writeln; и Readln; 9 класс же

Нажмите, чтобы раскрыть...

Сам король мемов в моей теме:D

WhiteDoter сказал(а):↑

нифига себя, спасибо, но мы еще assign не учили:D

Нажмите, чтобы раскрыть...

вот изменил на более простой:
var n,i,s:integer;
ves:array[1..100] of integer;
begin
s:=0;
writeln("Введите количество горшков:");
readln(n);
writeln("Введите вес каждого горшка, через пробел");
for i:=1 to n do
begin
read(ves[ i ] );
if ves[ i ] >=12 then s:=s+ves<i];
end;
writeln("Суммарный вес больших горшков",s);
end.

Если нужно, можно вывести на экран все данные в виде матрицы (таблицы).

Паскаль фигня вот тебе на Python в 1 строчку:

print(sum([x for x in map(int, input().split()) if x >= 12]))