Программисты помогите! нужно написать две программы на паскале с одним одномерным массивом чисел.
Answers & Comments
Af1nOdE
Program abc;constN = 6;vara: array[1..N] of integer;k,i,q,s,p : integer;beginS:=0;Q:=0;for i:= 1 to N dobeginWriteln('Введите значение элемента № ',i);Readln(a[i]);end;for i:= 1 to N dobeginif i mod 2 = 1 thena[i]:=a[i]*a[i]*a[i];if i mod 2 = 0 thena[i]:=a[i]*a[i];end;for i:= 1 to N dobeginif i mod 2 = 1 thens:=s+a[i];if i mod 2 = 0 thenq:=q+a[i];end;p:=s*q;Writeln('Ответ: ',p);end. //N можно изменять как удобно
Answers & Comments
//N можно изменять как удобно