⇢ Вопросы и ответы ⇢ Компьютеры, Связь

Помогите с программой Турбо Паскаль Составить программу определения суммы и адресов положительныхэлементов массива вещественных чисел К={kj}, j=1,m, m - число элементов в массивеК (m меньше либо равно 900). Вывести на экран найденноеколичество, а также все найденные адреса.

Геннадий

Может быть ты пошла учиться не той специальности?

могу посоветовать очень полезный сайт по паскалю ПаскальГУРУ (вбейте в гугл ПаскальГУРУ) есть много готовых и бесплатных решений

Похожие вопросы

паскаль, массивы помогите! ! с клавиатуры ввести массив из m целых чисел. найти сумму элементов массива

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

Введите последовательность из любых чисел R. Найдите наибольшее число. помогите составить программу в турбо паскале

Паскаль информатика. Из чисел от 10 до 99 вывести на экран сумму цифр которых равна 15.) помогите прошу. В паскале

Помогите написать программу. Составить и вывести на экран массив из различных элементов исходного массива.

Помогите пожалуйста составить блок схемы и программы на языке программирования турбо паскаль Задача : округлить вещественное число b до целого

Помогите с решением задач Сами программы нужно сделать, Их решения в паскале, вот ниже приведу их Задача номер 1 Написать процедуру для вычисление среднего значения для m первых элементов одномерного вещественного массива W. Задача номер 2 В файл ввести текст, закончив его . Подсчитать в нём общее количество строк. Задача номер 3 Составить программу последовательного появления на экран фигуры, состоящей из окружностей. будут очень признателен за помощь.

пожалуйста помогите решить задачу в паскале вывести на экран все двузначные элементы массива состоящих из разных цифр (например 23)

В каждом столбце матрицы D[n,m] нулевые элементы переставить в начало столбца (Паскаль) Программа работает неправильно, подскажите как исправитьProgram matr;const N=10;const M=10;var D:array [1..N,1..M] of real;i,j,k:integer;l:real;beginfor i:=1 to n do begin for j:=1 to m do begin D[i,j]:=random(5); if d[i,j]=0 then for k:=i-1 downto 1 do begin l:=d[k+1,j]; d[k,j]:=d[k+1,j]; d[k,j]:=l; end;end;end; for i:=1 to n do begin for j:=1 to m do begin write(D[i,j]:5:2);end; writeln;end; readln;end.

помогите написать программы на языке паскаль 1. Написать программу, которая записывает в файл n чисел.2. Написать программу, которая считывает из файла числа и находит их сумму.3. Написать программу, которая считывает из файла числа и находит минимальное значение.