дан массив А(20) сформировать новый массив В,который получается из А путем записи после каждого положительного элемента числа 10 массивы А и В
10-11 класс
|
распечатать.срочно надо помогите пожалуйста
var a:array[0..19] of integer;
b:array of integer;
i,k:integer;
begin
for i:=0 to 19 do begin
read(a[i]);
if a[i]>0 then begin k+=2; setlength(b,k); b[k-2]:=a[i]; b[k-1]:=10; end
else begin k+=1; setlength(b,k); b[k-1]:=a[i]; end;
end;
for i:=0 to 19 do
write(a[i],' ');
writeln;
for i:=0 to k-1 do
write(b[i],' ');
end.
Другие вопросы из категории
сообщение?
2. Сообщение занимает 2 страницы и содержит 1116 Кбайты информации. На каждой странице записано 256 символов.
Какова мощность используемого алфавита?
3. Сколько килобайтов составляет сообщение, содержащее 12288 битов?
а)защиты компьютера от вирусов
б)предотвращения входа в систему постороннего пользователя
в)идентификации пользователя
2Укажите что из перечисленным относится к вредоносным программам:
а)трояны
б)сетевые черви
в)утилиты
Помогите выбрать правильные ответы
Читайте также
двузначных элементов массива, которые не оканчиваются на 3. №2. Дан массив из 100 элементов. Каждый элемент может принимать целочисленные значения от 1 до 500. Напишите программу, которая позволит найти и вывести минимальное значение среди элементов массива, которые делят максимальное значение элементов массива без остатка.
подсчитать среднее арифметическое положительных элементов массива, которые кратны первому элементу массива. №2. Дан массив из 40 элементов. Каждый элемент может принимать целочисленные значения от 0 до 200. Напишите программу, которая позволит найти наиболее часто встречающийся элемент массива
и В(3*3). Вывести на экран тот из них, у которого меньше сумма элементов главной диагонали.
17.Дан массив А(3*4). Заменить все отрицательные элементы на противоположные.
элементов, занимающих четные места в массиве.
3)сформировать новый массив K [10] из элемаентов с 1 по 10 по формуле: K[i]=V[i]*2.
4)определить максимальный элемент массива K, его порядковый номер.
нужна программа, написанная, на языке програмирования Pascal.
лементов. Результат распечатать в виде:
Сумма наибольших=
Сумма наименьших=
№2
Даны два массива по 30 элементов. Найти среднее арифмитическое для элементов 1-го массива,номера которых больше номера минимального элемента 2-го массива
Заранее спасибо