Если между z и a умножение:
var z:array[1..13] of integer;
s,i:integer;
begin
s:=0;
for i:=1 to 13 do read(z[i]);
for i:=1 to 13 do
if i=5 then s:=s+z[i]*2
else if i=7 then s:=s+z[i]*4
else if i=10 then s:=s+z[i]*i
else s:=s+z[i]*z[i];
writeln(s);
end.
158 - Обычная программа
Добавляем считывание чисел:
145768
Добавляем суммирование и выводим результат :
14576238 - Ответ
const n=5;
var a:array [1..n] of integer;
i,s:integer;
begin
for i:= 1 to n do
begin
a[i]:=Random(5)+2;
write(a[i],' ');
end;
writeln;
for i:= 1 to n do if a[i]=3 then writeln (i,' элемент равен ',a[i]);
for i:= 1 to n do if a[i]>3 then writeln (i,' элемент больше 3 и равен ',a[i]);
for i:= 1 to n do if (a[i]>=3) and (a[i]<=5) then s:=s+a[i];
writeln ('Сумма чисел в массиве удовлетворяющих условию 3<=x<=5 равна ',s)
end.
<span>1)
#include <stdio.h>
int main() {
int a = -1;
while(a != 0)
scanf("%d", &a);
}
2)
<span>#include <stdio.h>
#include <math.h>
int main() {
int a;
scanf("%d", &a);
int prime = 1;
for(int i = 2; i <= sqrt(a)+1; i++)
if(a%i == 0) {
prime = 0;
break;
} if((prime == 0 && a != 2) || a == 1) printf("NO\n");
else printf("YES\n");
}
</span>3)
#include <stdio.h>
int main() {
int a[5];
for(int i = 0; i < 5; i++)
scanf("%d", &a[i]);
for(int i = 0; i < 5; i++)
printf("%d ", a[i]);
printf("\n");
}</span>
