Turbo Pascal

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

Войти

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

Другие темы раздела
Turbo Pascal Удалить последний четный элемент из массива https://www.cyberforum.ru/ turbo-pascal/ thread321327.html Дан одномерный массив чисел. Удалить последний четный элемент	Из шеснадцатизначного числа выделять цифры и из них сформировать одномерный массив Turbo Pascal Из шеснатизначного числа выделять цыфры и из них сформировать одномерный массив
Turbo Pascal Заменить буквой все элементы матрицы, расположенные выше главной диагонали. https://www.cyberforum.ru/ turbo-pascal/ thread321315.html Напишите программу ПЛС. Заранее СПАСИБО!!! Дана символьная квадратная матрица порядка10. Заменить буквой все ее элементы, расположенные выше главной диагонали.	Turbo Pascal Найдите номер первого элемента таблицы,меньшего 4 https://www.cyberforum.ru/ turbo-pascal/ thread321297.html вот такая задача
Turbo Pascal Определить, какой из символов чаще всего встречается в строке Определить, какой из символов чаще всего встречается в данной строке! заранее спасибо !!!!!	Turbo Pascal Проверить, расставлены ли по правилам знаки препинания в заданном тексте. https://www.cyberforum.ru/ turbo-pascal/ thread321275.html Проверить, расставлены ли по правилам знаки препинания в заданном тексте. Допустимы знаки препинания: точка, запятая, двоеточие, тире, вопросительный и восклицательный знаки. Все знаки, кроме тире,...
Turbo Pascal В заданном предложении найти самое короткое и самое длинное слова В заданном предложении найти самое короткое и самое длинное слова. Напечатать исходный текст и найденные слова https://www.cyberforum.ru/ turbo-pascal/ thread321274.html	Для заданного массива Turbo Pascal Для заданного массива вычислить и напечатать величины A и n, где A - наибольший элемент массива, n – его порядковый номер.
Turbo Pascal Вычислить и напечатать сумму, произведение и количество его положительных элементов массива https://www.cyberforum.ru/ turbo-pascal/ thread321271.html Для заданного массива вычислить и напечатать сумму, произведение и количество его положительных элементов	Turbo Pascal Найти все такие тройки натуральных чисел x,y,z Найти все такие тройки натуральных чисел x,y,z из интервала от 1 до 20, для которых выполняется равенство: x2+y2=z2. https://www.cyberforum.ru/ turbo-pascal/ thread321270.html
Turbo Pascal найти наибольший элемент n и поменять его местами с последним В массиве из 15 вещественных чисел найти наибольший элемент n поменять его местами с последним элементом. ЗАДАНИЕ На тему двумерные массивы.	Turbo Pascal задание на бинарный поиск https://www.cyberforum.ru/ turbo-pascal/ thread321247.html Используя бинарный поиск элементов в массиве найти на каком месте находится заданный элемент. П.С. если не трудно , можно чтобы было немного описан принцип действия бинарного поиска и чтобы...

KaiTheCat

К.О.

534 / 499 / 344

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

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

17.06.2011, 11:47

Найти сумму всех четных элементов массива, максимальный элемент и его номер, количество элементов, кратных трем - Turbo Pascal - Ответ 1768144

17.06.2011, 11:47. Показов 2114. Ответов 3

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

Ответ

Pascal

Uses crt;
Var
  a: array[1..100] of integer;
  i,n,max,count: byte;
  sum: integer;
 
Begin
  Clrscr;
  Randomize;
  Write('введите количество элементов: ');
  Readln(n);
  For i:=1 to n do
    begin
      a[i]:=random(101)-50;
      Write(a[i],' ');
    end;
  Writeln;
 
  max:=1;
  For i:=1 to n do
    begin
      If a[i] mod 2 = 0 then inc(sum,a[i]); //сумма четных элементов
      If a[i]>a[max] then max:=i; //индекс максимального элемента
      If a[i] mod 3 = 0 then inc(count); //количество элементов, кратных трем
    end;
 
  Writeln('Сумма четных элементов массива: ',sum);
  Writeln('Максимальный элемен: ',a[max],' его номер: ',max);
  Writeln('Количество элементов, кратных трем: ',count);
  Readkey
End.

Вернуться к обсуждению:
Найти сумму всех четных элементов массива, максимальный элемент и его номер, количество элементов, кратных трем Turbo Pascal

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

Programming

Эксперт

94731 / 64177 / 26122

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

Сообщений: 116,782

17.06.2011, 11:47

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

Найти сумму кратных трём отрицательных элементов массива. Найти минимальный элемент массива и его индекс
Друзья!!! Помогите написать текст программы в Паскале: № 3. Сформировать массив X(40) из случайных...

Найти сумму всех элементов массива кратных трем
Дан одномерный массив состоящий из 25 элементов целого числа.Найти сумму всех элементов кратным...

Найти сумму всех элементов массива, кратных трем
Дан одномерный массив, который состоит из целых чисел в диапазоне от –30 до 30. Найти сумму всех...

Найти максимальный элемент из элементов массива, кратных числу 3, и сумму отрицательных элементов
1. Найти максимальный элемент из элементов массива, кратных числу 3, и сумму отрицательных...

IT_Exp

Эксперт

87844 / 49110 / 22898

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

Сообщений: 92,604

17.06.2011, 11:47

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

Найти сумму всех отрицательных элементов двухмерного массива, максимальный положительный элемент и его местоположение
Проблема, нужно переписать программу чтобы она работала для двухбайтовых элементов массива, ниже...

Найти сумму элементов, количество четных и нечетных элементов, а также максимальный элемент в строках матрицы
7 Найти сумму элементов, количество четных и нечетных элементов, а также максимальный элемент в...

Вычислить сумму элементов массива А, количество положительных элементов массива В и его максимальный элемент
Дано натуральное число n, массивы А и В размерностью n. Вести с клавиатуры элементы массивов и...

Максимальный элемент массива и его номер и сумму элементов массива расположенных до последнего положительного элемента
Максимальный элемент массива и его номер и сумму элементов массива расположенных до последнего...

Наверх