Двумерные массивы. Paskal Дан массив целых чисел (n=20), заполненный случайным образом…

Question

57

Двумерные массивы. Paskal Дан массив целых чисел (n=20), заполненный случайным образом числами из промежутка [-45; 95]. 1, удалить из него все элементы, кратные 7 и принадлежащие промежутку [a,b] (a и b вводить с клавиатуры) 2, вставить число k между всеми соседними элементами, которые образуют пару элементов с одинаковыми знаками (k вводить с клавиатуры) 3, переставить в обратном порядке часть массива между элементами с номерами kl и k2, включая их. Сделать проверку корректности ввода kl и k2, если ввод неправильный, то ничего не делать.

категория: информатика

ответить

в избранное ссылка

Знаете ответ?

ze_eduardo · Accepted Answer

1) vara,b: array [1… 100] of integer; i,j,k,a,b,f: integer; beginrandomize; readln (a); readln (b); k: =0; for i: =1 to 20 dobegina[i]: =random (135) -45; f: =0; for j: =a to b doif (a[i]=j) and (a[i] mod 7=0) then f: =1; if f=0 thenbegink: =k+1; b[k]: =a[i]; end; end; for i: =1 to k dowriteln (b[i]); end.2) vara,b: array [1… 100] of integer; i,j,k: integer; beginrandomize; readln (k); j: =0; for i: =1 to 20 dobegina[i]: =random (135) -45; writeln (a[i]); for i: =1 to 19 dobeginif a[i]*a[i+1]>0 thenbeginj: =j+1; b[j]: =a[i]; j: =j+1; b[j]: =k; endelsebeginj: =j+1; b[j]: =a[i]; end; end; j: =j+1; b[j]: =a[20]; for i: =1 to j dowriteln (b[j]); 3) vara,b: array [1… 20] of integer; i,j,k1,k2: integer; beginrandomize; readln (k1); readln (k2); if k1

Email:
Пароль:
	забыли пароль?

Логин:
Email:
Пароль: