nikita140982ee
21.06.2022 15:55

решить

Сколько сможите
PASCAL

Зд. 1 Сформировать массив В(4,6) у которого элементы первой стоки равны единицы, второй строки равны двум, третьей строки сумме индексов (сумме номера строки и столбца на пересечении которых стоит элемент), четвёртой строки произведению своих индексов. Вывод созданного массива выполнить в виде таблицы.

Зд. 2 Дан массив D(M, N). Сформировать массив T, элементы которого вычисляются по формуле: T[i,j]= D[I,j]4 – i*j. Вывести оба массива в два столбца.

Зд. 3 Дан массив А(7, 5). Найти:

а) Сумму и произведение всех его элементов;

б) Сумму элементов стоящих в третьей строке;

в) Произведение элементов стоящих в пятом столбце;

г) Суммы элементов стоящих в одной строке, для каждой строки.

Зд. 4 Дан массив B(К), где К чётное число (не забудь вывести в строку для наглядности). Сформировать двумерный массив в котором в первой строке будут находиться элементы массива В стоящие в нём на не чётных позициях, а во второй строке будут находиться элементы массива В стоящие в нём на чётных позициях. Новый массив вывести в виде таблицы.

Зд. 5 Дан произвольный двумерный массив, сформировать из его элементов новый одномерный массив, развернув элементы исходного массива по столбцам.

Нажмите на рекламу ниже и сразу увидите ответ
Популярные вопросы:
Ответ:
samnsk100617
27.07.2021 02:06

for

примеры

(Pascal)

for i := 1 to 10 do

  s:=s+1;

 

(C#,C++)

for (int i=0;i<10;i++) {

   s+=i;

}

 

(Ruby)

for i in 1..10

  s=s+i

end

 

(VB, VBA, Basic,..)

for i = 1 to 10

  s=s+i

next i

 

По умлчанию шагом счетчика является 1. Обычно шаг счетчика можно менять фразой by или step by. Хотя увы такое есть не во всех языках

 

(C#,C++)

for (int i=0;i<10;i=i+2) {

   s+=i;

}

 

(VB, VBA, Basic,..)

for i = 1 to 10 step by 2

  s=s+i

next i

 

Например в паскале возможен только обратный отсчет

for i := 10 downto 1 do

  s:=s+1;

 

еще for примечателен тем, что даже если конец меньше начала (в варианте увеличения счета), то цикл все равно пройдет один раз. Правда не знаю подпадают ли под это правило языки из группы С

0,0(0 оценок)
Ответ:
Alisa6666666666666
21.06.2021 05:47
Const   N = 10;   
var   a, S1, S2: Integer;   
i, Q1, Q2: Byte;   
begin   
S1 := 0; Q1 := 0;   
S2 := 0; Q2 := 0;  
writeln('Введите ', N, ' чисел:');   
for i := 1 to N do 
begin     
read(a);     
if a < 0 then 
begin      
S1 := S1 + a;       
inc(Q1)     
end;     
if a > 0 then 
begin       
S2 := S2 + a;       
inc(Q2)     
end;   
end;   
writeln;   
if Q1 > 0 then 
begin     
writeln('Сумма отрицательных чисел: ', S1);     
writeln('Количество отрицательных: ', Q1)   
end   
else 
writeln('Отрицательных нет');   
if Q2 > 0 then
begin     
writeln('Сумма положительных чисел: ', S2);     
writeln('Количество положительных: ', Q2)   
end   
else 
writeln('Положительных нет') 
end.
0,0(0 оценок)
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota Оформи подписку
logo
Начни делиться знаниями
Вход Регистрация
Что ты хочешь узнать?
Спроси ai-бота