сервис вопросов и ответовдан одномерный массив A(N) a(1) a(2),....,a(n) -целые заменить все большеие члены массива числом 7 .найти колличество таких членов
10-11 класс|
|
Pifagor1000
02 авг. 2015 г., 1:33:25 (8 лет назад)
родуд
02 авг. 2015 г., 3:14:00 (8 лет назад)
var A: array [1..100] of integer;
i, n, k: integer;
begin
writeln('Введите количество элементов массива');
readln(n);
for i := 1 to n do
begin
A[i] := 1 + random(10);
writeln('A[', i, ']=', A[i]:3);
if A[i] > 7 then A[i] := 7;
if A[i] = 7 then inc(k);
end;
writeln('Всего заменено ', k, ' элементов массива');
readln
end.
Iljamihin
02 авг. 2015 г., 5:01:09 (8 лет назад)
насколько большие должны быть элементы массива?
Alex46
02 авг. 2015 г., 6:25:24 (8 лет назад)
вроде бы на 7 написано
Ответить
Другие вопросы из категории
Используя метод сжатия Хаффмена, закодируйте следующие слова.
а). administrator
б). revolution
в). economy
г). department
Читайте также
Паскаль помогите пжл!!!!!! Дан одномерный массив, состоящий из вещественных элементов. Найти произведение элементов массива,
расположенных между максимальным и минимальным элементами.
Дан одномерный массив, состоящий из вещественных элементов. Найти произведение элементов массива, расположенных между максимальным по модулю и минимальным по модулю элементами
ну или исправьте мое пжл
program fgf;
var mas:array[1..100] of real;
max,min:real;
i,n,c,b:shortint;
p:real;
f1,g:text;
begin;
assign (f1, 'input.txt');
reset (f1);
readln (f1, n);
for i:=1 to N do read (mas[i]);
max:=mas[i];
for i:=2 to N do begin
if mas[i]>max then begin
max:=mas[i];
c:=i;
end;
end;
min:=mas[1];
for i:=2 to N do begin
if mas[i]<min then begin
max:=mas[i];
b:=i;
end;
end;
close(f1);
assign (g, 'output.txt');
rewrite (g);
p:=1;
if b<c then I:=b+1 and c-1
else for I:=c+1 to b-1 do p:=p*mas[i];
if (n<3) or (b+1=c) or (c+1=b) then writeln(g,'0.00') else write(p:3:3) ;
close (g);
end.
1)дан одномерный массив из 5 элементов.найти сумму положительных элементов. 2)Дан одномерный массив из 7
элементов.Найти колличество четных положительных элементов.
3)Дан массив из 6 элементов.Найти произвдение положительных из них.
определить число элементов массива, больших К. По заданному условию сформировать одномерный массив, вывести на печать и произвести операции по обрабо
тке полученных компонентов массива. Исходными данными являются одномерный массив, элементы которого задаются с помощью датчика случайных чисел от -50 до +50 и целое положительное число К
Дан одномерный массив целых чисел, заполненный
случайным образом числами из промежутка [-40, 30]. Массив данных хранится в
файле. Удалить из него все элементы, которые состоят из одинаковых цифр.
Результат записать в другой файл.
ПАСКАЛЬ.1)дан целочисленный массив из 30 элементов.элементы массива могут принимать целые значения от 0 до 1000.опишите на русском языке или на одном из
языков программирования алгоритм,позволяющий найти среднее арифметическое нечетных трехзначных чисел,записанных в этом массиве.если ни одного такого числа нет,нужно вывести сообщение об этом.
2)дан целочисленный массив из 30 элементов.элементы массива могут принимать целые значения от 0 до 100.опишите на русском языке или на одном из языков программирования алгоритм,позволяющий найти и вывести произведение элементов массива,которые имеют четное значение и не оканчиваются на 0.
Вы находитесь на странице вопроса "дан одномерный массив A(N) a(1) a(2),....,a(n) -целые заменить все большеие члены массива числом 7 .найти колличество таких членов", категории "информатика". Данный вопрос относится к разделу "10-11" классов. Здесь вы сможете получить ответ, а также обсудить вопрос с посетителями сайта. Автоматический умный поиск поможет найти похожие вопросы в категории "информатика". Если ваш вопрос отличается или ответы не подходят, вы можете задать новый вопрос, воспользовавшись кнопкой в верхней части сайта.