1. какие значения будут в ячейках а2 и в2? 2. какие значения будут в ячейках а2 и в2, если ввести в а1 число 2, в в1 число 4? 3. какое значение нужно занести в в1, чтобы в в2 появилось сообщение об ошибке? а в 1 6 3 2 а1+в1 а1/в1
// Дан массив А(30). Сформировать новый массив из значений элементов массива А кратных 5
var ish, krat: array [1..30] of word; i,j,x :byte; begin j:=1; randomize; for i:=1 to 30 do //заполняем исходный массив случайными числами (до 1000) begin ish[i]:=random(1000); writeln (i,' элемент исходного массива ',ish[i]); end; writeln ('находим элементы кратные пяти:'); for i:=1 to 30 do begin x:= ish[i] mod 5; //определяем элементы кратные пяти if x=0 then begin //и заполняем новый krat[j]:=ish[i]; writeln (j,' элемент нового массива ',krat[j],' равен ',i,' элементу исходного массива'); j:=j+1; end; end; end.
// Дан массив целых чисел. Все нечетные элементы удвоить, а четные уменьшить вдвое.
var a: array [1..10] of real; // возьмем массив из 10 чисел i,x :byte; begin randomize; for i:=1 to 10 do //заполняем исходный массив случайными числами (до 1000) begin a[i]:=random(1000); writeln (i,' элемент исходного массива ',a[i]); end; writeln (); for i:=1 to 10 do begin x:=i mod 2; //определяем четный или нет элемент массива if x=0 then //если элемент четный begin a[i]:=a[i]/2; writeln (i,' элемент массива - четный ',a[i]); end else //если элемент нечетный begin a[i]:=a[i]*2; writeln (i,' элемент массива - нечетный ',a[i]); end; end; end.
