Форум программистов, компьютерный форум, киберфорум
Pascal ABC
Войти
Регистрация
Восстановить пароль
Другие темы раздела
Pascal ABC Series,Дано целое число N и набор из N челых чисел,содержащий по крайне мере два нуля https://www.cyberforum.ru/ pascalabc/ thread198985.html
Дано целое число N и набор из N челых чисел,содержащий по крайне мере два нуля.Вывести сумму чисел из данного набора,расположенных между последними двумя нулями(если последние нули идут подряд,то вывести 0) Добавлено через 2 часа 14 минут Жду помощи!Помогите )
Series>Дано целое число К и набор ненулевых целых чисел Pascal ABC
Помогите пожалуйста! Дано целое число К и набор ненулевых целых чисел:признак его завершения-число 0.Вывести количество чисел в наборе,меньше К
Pascal ABC Лучший результат В ЭВМ поступили результаты соревнований по плаванью, в которых участвует n спортсменов. Выдавать на экран лучший результат.(Pascal ABC) Добавлено через 34 минуты Решил сам Program Zadacha_4; var a: array of longint; max,i,n,k : longint; begin writeln('Введите количество спортсменов'); readln(n); https://www.cyberforum.ru/ pascalabc/ thread198276.html Pascal ABC Определение простого числа Логической переменной P присвоить значение TRUE, если целое число N(N>1) - простое число, и значение FALSE в противном случае.(Pascal ABC) https://www.cyberforum.ru/ pascalabc/ thread198256.html
Pascal ABC Файлы и записи
ВСем привет, помогите исправить программу. Вот условия: Имеется информация об итогах зимней сессии на 1 курсе: фамилия, номер группы, оценка1, оценка2, оценка3. Причем в фамилии – не более 12 букв, номер группы – целое от 11 до 13, каждая оценка это 2, 3, 4, 5, причем Сведения о каждом студенте первокурснике заданы в следующем виде первая оценка по математике, вторая по экономике, третья по...
Pascal ABC Корабль стреляет в самолёт! Всем привет помогите пожалуйста написать программу в которой корабль стреляет в сомалёт, после чего самолёт исчезает,при этом они должны двигаться в противоположных направлениях. Не надо не чего закрашивать просто линиями.Помогите пожалуйста! https://www.cyberforum.ru/ pascalabc/ thread197424.html
Pascal ABC Определить какое слово с какой из приставок записано https://www.cyberforum.ru/ pascalabc/ thread197053.html
1. Условие: На уроке разбирали тему: «Правописание приставок „из» и „ис“». Учительница записывает слово с одной из приставок. Надо определить какое слово с какой из приставок записано. 2. Условие: На уроке разбирали тему: «Правописание приставок „из» и „ис“». Учительница записывает слова с одной из приставок, разделяет их запятой и пробелом. Надо подсчитать сколько слов с какой из...
Необычная сортировка в файле Pascal ABC
шапка программы: uses crt, graphabc; type student=record f_i_o:string; alg:integer;{алгебра} phis:integer;{физика} geom:integer;{геометрия} ball:longint;{средний балл полный} ball2:longint;{дробный}
Pascal ABC вставить ограничения program doski; var n,l,c,m,s1,s2,s3,s4:integer; begin writeln ('ââåäèòå 4 ÷èñëà'); read (n,l,c,m); s1:=l div m ; s2:=l div m ; s3:=l div m ; s4:=s1+s2+s3; if s4>=c then https://www.cyberforum.ru/ pascalabc/ thread196314.html Pascal ABC Pascal ABC>Integer https://www.cyberforum.ru/ pascalabc/ thread195517.html
Цикл с For Дано вещественное число Х и целое число N (>0).Найти значение выражения 1-х^2/(2!)+x^4/(4!)-...+(-1)^n*X^(2*n)/((2*N)!) (N!=1*2*...*N).Полученное число является приближенным значением функций cos в точке Х Хелп!помогите плз!
строки Pascal ABC
Заданы в тексте три ключевых слова. Определить: встречаются или нет ключевые слова в тексте.
Pascal ABC Написать самый постой калькулятор Написать самый постой калькулятор (+, -, *, /) с использованием case-оператора и присвоить знакам операций тип char. Благодарствую https://www.cyberforum.ru/ pascalabc/ thread195196.html
19 / 19 / 7
Регистрация: 17.10.2008
Сообщений: 97
29.11.2010, 09:09 0

Series>Даны целые числа К,N,а также К наборов целых чисел по N элементов в каждом наборе! - Pascal ABC - Ответ 1151621

29.11.2010, 09:09. Показов 1538. Ответов 1
Метки (Все метки)

Ответ

const
K = 10;
N = 15;
var
Matrix: array[1..K, 1..N] of integer;
sum: integer;


procedure Input;
var
i, j; word;

begin
writeln('Введите элементы массива:');

for i:= 1 to K do
begin
sum:= 0;
for j:= 1 to N do
begin
read(matrix[i, j]);

sum:= sum + matrix[i, j];
if matrix[i, j] = 2 then
write(' ', sum) else
write(' ', #48);

end;
end;
end;

Вернуться к обсуждению:
Series>Даны целые числа К,N,а также К наборов целых чисел по N элементов в каждом наборе! Pascal ABC
0
Заказать работу у эксперта
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
29.11.2010, 09:09
Готовые ответы и решения:

Даны целые числа K,N,а так же K наборов целых чисел по N элементов в каждом наборе
Даны целые числа K,N,а так же K наборов целых чисел по N элементов в каждом наборе. Для каждого...

Даны целые числа K, N, а также K наборов целых чисел по N элементов в каждом наборе. Для каждого набора вывести номер его первого элемента, равного 2
Даны целые числа K, N, а также K наборов целых чисел по N элементов в каждом наборе. Для каждого...

Даны целые числа K, N, а также K наборов целых чисел по N элементов в каждом наборе
Даны целые числа K, N, а также K наборов целых чисел по N элементов в каждом наборе. Для каждого...

Даны целые числа K, N, а также K наборов целых чисел по N элементов в каждом наборе
Даны целые числа K, N, а также K наборов целых чисел по N элементов в каждом наборе. Вычислить...

1
29.11.2010, 09:09
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
29.11.2010, 09:09
Помогаю со студенческими работами здесь

Даны целые числа K, N, а также K наборов целых чисел по N элементов в каждом наборе. Для каждого набора
Помогите с заданием!!! Даны целые числа K, N, а также K наборов целых чисел по N элемен- тов в...

Даны целые числа K,N а также К наборов целых чисел по N элементов в каждом наборе .Для каждого набора вывести сумму его элементов
Ребята,пожалуйста,укажите ошибку... Даны целые числа K,N а также К наборов целых чисел по N...

Даны целые числа K , N ,а так же K наборов целых чисел по N элементов в каждом наборе
Даны целые числа K,N,а так же K наборов целых чисел по N элементов в каждом наборе. Вывести общую...

Даны целые числа K,N, а также K набор целых чисел по N элементов в каждом наборе. Вывести суму его элементов для каждого набора
Задача из роздела серий.

0
КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin
Copyright ©2000 - 2024, CyberForum.ru