сервис вопросов и ответовЯзык программирования Турбо Паскаль
10-11 класс|
|
Дан массив А из n действительных чисел: a1, …, an
Bolatovagulaim
04 февр. 2014 г., 17:18:49 (10 лет назад)
Nastyabondarenko
04 февр. 2014 г., 19:53:02 (10 лет назад)
VAR
i, j: integer;
arr: array of real;
s: real;
begin
readln(i);
SetLength(arr, i);
for i := 0 to length(arr) - 1 do
begin
arr[i] := random(5) + 6;
write(arr[i], ' ');
end;
writeln();
for i := 0 to length(arr) - 1 do
begin
s := 0;
write('a[0]..a[', i, '] => ');
for j := 0 to i do
s := s + arr[j];
writeln(s);
end;
writeln('===============================');
j := 0;
for i := 0 to length(arr) - 1 do
begin
if (arr[i] > 7) then
begin
arr[i] := 7;
j := j + 1;
end;
write(arr[i], ' ');
end;
writeln();
writeln(j);
end.
Ответить
Другие вопросы из категории
Читайте также
Четыре друга, Николай, Борис, ДмитрийЧетыре друга, Николай, Борис, Дмитрий и Максим живут в одном
дворе. Одному из них 12 лет, другому 14, третьему 16, самому старшему
19. Они все увлекаются программированием, но каждый из них
специализируется только на каком-то одном из языков программирования:
Бейсик, Паскаль, Си, Хаскел. Определите имя и любимый язык
программирования 14-ти летнего программиста, если известно, что:
Возраст Димы отличается от возраста любителя Си не более чем на 2 года.Специалист по Хаскелу старше любителя Си.Не менее чем один из приятелей родился между годом рождения Бориса и годом рождения Димы.Юноша, пишущий на Бейсике либо самый старший из друзей, либо самый младший.Коля не пишет на Бейсике и его возраст больше чем на 2 года отличается от возраста любителя Бейсика.Любитель Бейсика родился с разницей в 2 года со специалистом по Паскалю.Борис старше программиста на Паскале.Знаток Паскаля младше специалиста по Си.
В ответе сначала запишите первую букву имени 14-ти летнего
программиста, затем через пробел первую букву его любимого языка
программирования.
ПОМОГИТЕ, ПОЖАЛУЙСТА!!
Запишите командами языка программирования команду если значение переменной А меньше или равно 100, то значение А увеличивается в 10 раз, если больше 100 -
уменьшается в 10 раз. На языке паскаль
ПАСКАЛЬ.1)дан целочисленный массив из 30 элементов.элементы массива могут принимать целые значения от 0 до 1000.опишите на русском языке или на одном из
языков программирования алгоритм,позволяющий найти среднее арифметическое нечетных трехзначных чисел,записанных в этом массиве.если ни одного такого числа нет,нужно вывести сообщение об этом.
2)дан целочисленный массив из 30 элементов.элементы массива могут принимать целые значения от 0 до 100.опишите на русском языке или на одном из языков программирования алгоритм,позволяющий найти и вывести произведение элементов массива,которые имеют четное значение и не оканчиваются на 0.
дан целочисленный массив из 20 элементов. Элементы массива могут принимать целые числа от о до 10000 включительно. Опишите на естественном языке или на
одном из языков программирования алгоритм, позволяющий найти и вывести максимальное значение среди трехзначных элементов массива, оканчивающихся на 0
Помогите, пожалуйста!! Язык программирования Паскаль.
1) Найти количество отрицательных элементов в массиве А [3,8].
2) Заполнит и вывести массив Р [6,7], запросить номер строки и вывести её на экран.
3) Заполнить и вывести массив Р [6,7], запросить номер строки, заменить все её элементы на 5 и вывести новый массив.
4) В квадратной матрице А [10,10] заменить элементы главной диагонали на 0.
Всё нужно очень срочно
Вы находитесь на странице вопроса "Язык программирования Турбо Паскаль", категории "информатика". Данный вопрос относится к разделу "10-11" классов. Здесь вы сможете получить ответ, а также обсудить вопрос с посетителями сайта. Автоматический умный поиск поможет найти похожие вопросы в категории "информатика". Если ваш вопрос отличается или ответы не подходят, вы можете задать новый вопрос, воспользовавшись кнопкой в верхней части сайта.