Pascal ABC

Форум программистов и сисадминов Киберфорум

Войти

Регистрация
Восстановить пароль

Другие темы раздела
Pascal ABC Записывать заданное число в обратном порядке. Помогите пожалуйста написать программы на pascal ABC! Задали в универе, сам плохо соображаю в этом...Заранее большое спасибо! тема:Использование процедур. 1.Составьте программу с использованием...	Pascal ABC вычислить и сохранить в файл F2.txt сумму чисел. https://www.cyberforum.ru/ pascalabc/ thread826970.html Помогите пожалуйста написать программы на pascal ABC! Задали в универе, сам плохо соображаю в этом...Заранее большое спасибо! тема:Программа с записью файлов. 7.Дана последовательность N... спасибо за помощь!
БД "Кадры" Pascal ABC Помогите пожалуйста написать программы на pascal ABC! Задали в универе, сам плохо соображаю в этом...Заранее большое спасибо! тема:Программа с использованием записей. 4.Создайте БД "Кадры",...	Во второй файл записать самое максимальное по длине слово из первого Pascal ABC вобщем задача такая, дан файл в нем сформирован текст построчно, нужно во второй файл записать самое максимально по длинне слово... Считывает слова с каждой строки файла file1.txt в массив (не более 1000 слов) и записывает самое длинное слово в файл file2.txt. program pr2; uses crt; var f1,f2:text; s:array of string; ...
Найти и вывести на экран: сумму наибольшего и наименьшего значиний компонент. Pascal ABC Помогите пожалуйста написать программы на pascal ABC! Задали в универе, сам плохо соображаю в этом...Заранее большое спасибо! тема:Программа с четением файлов. 6.Компонентами файла f являются... спасибо за помощь!	Определить количество неуспевающих по программированию на экономическом факультете Pascal ABC Помогите пожалуйста написать программы на pascal ABC! Задали в универе, сам плохо соображаю в этом...Заранее большое спасибо! тема:Программа с использованием стандартных функций для работы с...
Pascal ABC номера счастливых билетов, которые равны кубу какого-либо натурального числа. Помогите пожалуйста написать программы на pascal ABC! Задали в универе, сам плохо соображаю в этом...Заранее большое спасибо! тема:Применение модульного программирования 2.Составить программу,... https://www.cyberforum.ru/ pascalabc/ thread826956.html	Pascal ABC задача с указателями помогите пожалуйсто! нужно срочно решить задачу, дана цепочка s все отрицательные звенья цепочки заменить из модулями, а положительные их квадратами. заранее спасибо:) https://www.cyberforum.ru/ pascalabc/ thread826767.html
Pascal ABC Записать заданное число в обратном порядке Помогите пожалуйста написать программы на pascal ABC! Задали в универе, сам плохо соображаю в этом...Заранее большое спасибо! тема:Использование процедур. 1.Составьте программу с использованием... Хочешь получить ответы, напиши каждый вопрос в отдельной теме, эта тема нарушает правила, которые прочитать вам видимо вера не позволяет, а потому закрыта. https://www.cyberforum.ru/ pascalabc/ thread826739.html	В двухмерном массиве найдите наименьшие элементы каждой строки. Pascal ABC Помогите пожалуйста написать программы на pascal ABC! Задали в универе, сам плохо соображаю в этом...Заранее большое спасибо! тема:Работа с двухмерными массивами. 3.В двухмерном массиве найдите...
Pascal ABC Задача "Фишки" Помогите, пожалуйста, решить задачу! if k mod 4=0 then writeln('YES') else writeln('NO'); Добавлено через 4 минуты Еще and(k>0)	Найти, какие буквы и сколько раз встречаются в тексте Pascal ABC Дана задачка: Строка, содержащая произвольный русский текст. Найти, какие буквы и сколько раз встречаются в этом тексте. В ответе буквы печатаются в алфавитном порядке, в нижнем регистре (заглавные... заглавные и строчные буквы имеют разные диапазоны кодов, посмотрите коды символов в ANSI/ASCII

Тамила

753 / 546 / 211

Регистрация: 12.11.2009

Сообщений: 1,100

03.04.2013, 16:30

Найти сумму наименьших элементов каждой строки массива - Pascal ABC - Ответ 4354706

03.04.2013, 16:30. Показов 1829. Ответов 3

Метки (Все метки)

Сообщение было отмечено Памирыч как решение

Решение

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
uses crt;
var
   x:array[1..100,1..100]of integer;
   n,m,i,j,sum,max,pos:integer;
   a:array[1..100]of integer;
begin
   clrscr;
   randomize;
   write('n=');
   read(n);
   write('m=');
   read(m);
   writeln;
   for i:=1 to n do
   for j:=1 to m do
    x[i,j]:=random(25);
   for i:=1 to n do
    begin
       for j:=1 to m do
        write(x[i,j],'  ');
       writeln;
    end;
   writeln;
   for i:=1 to n do
    begin
     sum:=0;
     for j:=1 to m do
         sum:=sum+x[i,j];
     a[i]:=sum;
     writeln('summa ',i,'-oi stroki=',sum);
    end;
     writeln;
     max:=a[1];
     for i:=1 to n do
      begin
       if a[i]>max then
        begin
           max:=a[i];
           pos:=i;
        end;
       write(a[i],'  ');
      end;
     writeln;
     writeln('nomer stroki: ',pos);
   readkey;
end.

Вернуться к обсуждению:
Найти сумму наименьших элементов каждой строки массива Pascal ABC

Следующий ответ

cpp_developer

Эксперт

20123 / 5690 / 1417

Регистрация: 09.04.2010

Сообщений: 22,546

Блог

03.04.2013, 16:30

Готовые ответы и решения:

Найти сумму четных элементов каждой строки массива
1.Заполнить двумерный числовой массив А целыми числами. Найти сумму четных элементов каждой строки массива и раскрасить при выводе красным...

Найти сумму нечетных по значениям элементов каждой строки массива
Заполнить двумерный числовой массив Х целыми числами. Найти сумму нечетных по значениям элементов каждой строки массива. Определить номер...

Найти сумму элементов каждой строки массива, принадлежащих промежутку [-1,3]
дан массив X(N,M). Найти сумму элементов каждой строки массива, принадлежащих промежутку . Из полученных значений сформировать одномерный...

Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.

raxper

Эксперт

30234 / 6612 / 1498

Регистрация: 28.12.2010

Сообщений: 21,154

Блог

03.04.2013, 16:30

Помогаю со студенческими работами здесь

Найти сумму четных элементов каждой строки массива и раскрасить красным цветом четные элементы
Заполнить двумерный числовой массив А целыми числами. Найти сумму четных элементов каждой строки массива и раскрасить при выводе красным...

Найти сумму квадратов восьми наименьших элементов массива.
В массиве n действительных чисел найти сумму квадратов восьми наименьших елементов.(упорядочение массивов).Напишите код плиз

Найти сумму наименьших элементов каждой строки матрицы и их координат
Написать программу обработки матриц,выполнить ее тестирование Задана квадратная матрица А размером N x N (N<==10), состоящая из...

Найти сумму элементов каждой строки данного массива.
Помогите с задачей плиз =) Дан двумерный массив размерностью 3х3. Найти сумму элементов каждой строки данного массива.

Найти сумму элементов каждой четной строки матрицы и произведение элементов каждой нечетной
В матрице D(10,15) найти сумму элементов каждой четной строки и произведение элементов каждой нечетной строки. Из полученных...

Новые блоги и статьи Все статьи Все блоги /
Простая нейросеть на КуМир: Создание и обучение EggHead 16.03.2025 Искусственные нейронные сети — удивительная технология, позволяющая компьютерам имитировать работу человеческого мозга. Если вы хотя бы немного интересуетесь современными технологиями, то наверняка. . .	Исполнитель Кузнечик в КуМир: Решение задач EggHead 16.03.2025 Среди множества исполнителей в системе КуМир особое место занимает Кузнечик — простой, но невероятно полезный виртуальный персонаж, который перемещается по числовой прямой, выполняя ваши команды. На. . .	Исполнитель Водолей в КуМир: Решение задач EggHead 16.03.2025 Разработка алгоритмического мышления — одна из ключевых задач для начинающих программистов, и система КуМир предлагает отличный способ погрузиться в этот процесс. Среди множества исполнителей в этой. . .	Исполнитель Чертежник в КуМир: Решение задач EggHead 16.03.2025 Представьте, что вы можете рисовать на бесконечной координатной плоскости, перемещая точку, которая оставляет след. По вашей команде она может поднять перо и двигаться, не оставляя следа, или. . .	Исполнитель Робот в КуМир: Решение задач EggHead 16.03.2025 КуМир (Комплект Учебных МИРов) — это учебная среда программирования, разработанная специально для обучения базовым концепциям алгоритмизации. Её главная фишка — использование русскоязычного. . .
Исполнитель Черепаха в КуМир: Решение задач EggHead 16.03.2025 Представьте, что вы впервые учитесь программировать, а перед вами стоит задача заставить маленькую виртуальную черепашку рисовать на экране. Звучит забавно? Эта идея зародилась ещё в 1967 году, когда. . .	Конвейеры данных с Apache Kafka Javaican 16.03.2025 В мире, где данные стали новой нефтью, Apache Kafka зарекомендовал себя как мощный инструмент для построения надежных и масштабируемых конвейеров данных. Созданный изначально командой LinkedIn в 2011. . .	Deno против Node.js: Будущее JavaScript рантайма run.dev 16.03.2025 За последнее десятилетие Node. js стал абсолютным лидером среди JavaScript-рантаймов и фактическим стандартом для серверной разработки на JavaScript. Но в 2018 году тот же разработчик, который создал. . .	SwiftUI или UIKit - что выбрать для нового приложения iOS? mobDevWorks 16.03.2025 Когда Apple представила SwiftUI на WWDC 2019, многим показалось, что дни UIKit сочтены. Новый декларативный фреймворк предлагал радикально иной подход к разработке интерфейсов. Вместо кропотливого. . .	Docker: Руководство для начинающих по созданию первого приложения Mr. Docker 16.03.2025 Docker — это платформа, которая упаковывает ваше приложение и все его зависимости в стандартизированные блоки, называемые контейнерами. Эти контейнеры изолированы друг от друга и от основной системы,. . .

Наверх