Опубликовано 12.06.2017 по предмету Информатика от Гость >> <<

Даны два массива А и В, каждый из которых состоит из 6 элементов. Найдите их удвоенную разность и запишите полученный результат в третий массив С. с[i]=2*(a[i]-b[i])

Ответ оставил Гость

Var a,b,c: array[1..6] of integer;
i:integer;
begin 
 Writeln(Введите элементы массива А: ); 
 for i:= 1 to 6 do
  readln(a[i]);   
 Writeln(Введите элементы массива B: );
  for i:= 1 to 6 do  readln(b[i]); 
  for i:= 1 to 6 do   
 C[i]:=2*(a[i]-b[i]);   
 Writeln(Элементы массива С :); 
     for i:= 1 to 5 do     
 Write(c[i],, );         
   Writeln(c[6],. );   
  end.