a) Составьте программу, которая заполняет массив a[10..20] случайными целыми числами в диапазоне от 10 до 20, затем преобразовывает его, увеличивая все элементы с четными значениями на 1. Если элементы с четными значениями отсутствуют, оставить массив без изменений. (Вывести Исходный и Преобразованные массивы в строчку)

б) Составьте программу, которая заполняет массив a[10..20] случайными целыми числами в диапазоне от 10 до 20, затем преобразовывает его, увеличивая все элементы с нечетными значениями в три раза, а элементы с четными значениями заменяя на 0. (Вывести Исходный и Преобразованные массивы в строчку)

Всё)

Спасибо

varmax,min,i,x:integer;m:array[10..20] of integer;beginmin:=10;max:=10;randomize;for i:=10 to 20 do m[i]:=random(10)+10;for i:=10 to 20 do write(m[i],' ');writeln;for i:=10 to 20 dobeginif ( m[i] mod 2) = 0 then m[i]:=m[i]+1;end;for i:=10 to 20 do write(m[i],' ');writeln;end.2)varmax,min,i,x:integer;m:array[10..20] of integer;beginmin:=10;max:=10;randomize;for i:=10 to 20 do m[i]:=random(10)+10;for i:=10 to 20 do write(m[i],' ');writeln;for i:=10 to 20 dobeginif ( m[i] mod 2) = 0 then m[i]:=0 else m[i]:=m[i]*3;end;for i:=10 to 20 do write(m[i],' ');writeln;end.

Заархивируй файл. Переименуй в архиве в формат ".exe". Разархивируй. Вот тебе и программа.Я так обошёл "Неверный формат файла" при его закачке на Знания.com.