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

Astap54 11 мар. 2022 г., 02:46:45

Вот посмотри, может сем поможет :

uses crt ;

var s : string ;

function Kslov (str : string ; c : char) : integer ;

var i, k : integer ;

begin str : = str + ' ' ;

k : = 0 ;

for i : = 1 to length(str) - 1 do if (str[i + 1] in [' ', '.

', ', ', ' - ', ' : ', ' ; ', '!

', '?

']) and (str[i] = c) then inc(k) ;

Kslov : = k ;

end ; procedure Del(var str : string) ;

var i, j : integer ;

begin str : = str + ' ' ; i : = length(str) + 1 ;

repeat dec(i) ;

until(str[i + 1] = ' ') and (str[i] = 'о') ;

j : = i ;

repeat dec(i) ;

until(str[i + 1] = ' ') or (i = 1) ; delete(str, i, j - i) ;

end ;

begin write('s = ') ; readln(s) ; if Kslov (s, 'о')>Kslov (s, 'а') then Del(s) ; write('s = ', s) ;

End.

Bal1 2 мар. 2022 г., 03:03:21 | 5 - 9 классы

СРОЧНОО 1?

СРОЧНОО 1.

НАйти произведение элементов с нечетными номерами(паскаль, массивы)

2.

Найти сумму четных элементов массива(паскаль, массивы).

Историяхх 29 мар. 2022 г., 05:30:48 | студенческий

Найти заданную сумму положительных элементов, сумму четных и суммы первых пяти?

Найти заданную сумму положительных элементов, сумму четных и суммы первых пяти.

НУЖЕН КОД ДЛЯ ПОСКАЛИ!

Помогите пожалуйста.

Аленушка1981 11 апр. 2022 г., 01:28:44 | студенческий

Найти заданную сумму положительных элементов массив, сумму четных и суммы первых пяти?

Найти заданную сумму положительных элементов массив, сумму четных и суммы первых пяти.

НУЖЕН КОД ДЛЯ ПОСКАЛИ!

Помогите пожалуйста.

AlinaMarks 27 апр. 2022 г., 10:14:26 | 5 - 9 классы

Задан целочисленный массив размера N?

Задан целочисленный массив размера N.

Определить число элементов в массиве кратных 2 (написать на pascal).

Katykolomeiceva 1 апр. 2022 г., 03:07:07 | 5 - 9 классы

Массив - 10 элементов?

Массив - 10 элементов.

Задача :

Удвоить все четные элементы массива.

Все элементы с нечетным номером разделить на первый

элемент массива.

Срочно!

Завтра сдавать Дз.

Zhuldizbest 24 мая 2022 г., 16:37:06 | студенческий

Сформировать массив а[n][m] из случайно заданных элементов, значения которых находятся на отрезке [ - 10000 ; 10000]?

Сформировать массив а[n][m] из случайно заданных элементов, значения которых находятся на отрезке [ - 10000 ; 10000].

Вывести число элементов с наименьшим и наибольшим значениями этого массива / помогите, пожалуйста.

Dan34111 7 янв. 2022 г., 10:14:06 | студенческий

Помогите пожалуйста задание, надо код для паскали?

Помогите пожалуйста задание, надо код для паскали.

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

Isensys 2 февр. 2022 г., 20:00:50 | 10 - 11 классы

Pascal?

Pascal.

Найти и напечатать индекс наименьшего элемента одномерного массива P размерности 5 элементов.

Из равных наименьших элементов выбрать элемент с большим индексом.

Что не так с кодом?

Miramironova001 19 февр. 2022 г., 05:27:01 | 5 - 9 классы

Помогите срочно?

Помогите срочно!

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

«Даны два многомерных массива.

Найти их разность С = А - В.

».

7vlad2003 14 мар. 2022 г., 04:43:21 | 5 - 9 классы

Даю 25 баллов?

Даю 25 баллов!

Дан массив из 20 вещественных чисел.

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