Var a:array[1..1000] of integer;
<span>sum,n,i:integer; </span>
<span>begin </span>
<span>sum:=0; </span>
<span>writeln('Введите количество чисел'); </span>
<span>read(n); </span>
<span>writeln('Введите числа'); </span>
<span>for i:=1 to n do begin </span>
<span>read(a[i]); </span>
<span>if (a[i] mod 7=0) and (a[i] mod 10=4)then sum:=sum+a[i]; </span>
<span>end; </span>
<span>writeln('Сумма элементов кратных 7 и оканчиваюшихся на 4 = ',sum); </span>
<span>end.</span>
<span>#include<span> <iostream>
</span>#include<span> <cstring>
</span>
int main() {
char* text1 = "Слово"<span>;
</span> char* text = "Как то текст с гласными на конце кок"<span>;
</span>
char* newText = new char[strlen(text)]<span>;
</span>
int lastStop = 0, lastIter = 0<span>;
</span> for (int i = 0; text[i] != '\0'; i++) {
bool copyIt = false<span>;
</span>
if (text[i] == ' ') lastStop = i<span>;
</span>
if (text[i + 1] == ' ' || text[i + 1] == '\0') {
for (int j = 0; text1[j] != '\0'; j++) {
if (text[i] == text1[j]) {
copyIt = false; break<span>;
</span> }
copyIt = true<span>;
</span> }
}
if (copyIt == true) {
for (int j = lastStop; j <= i; j++, lastIter++)
newText[lastIter] = text[j]<span>;
</span> }
}
for (int i = 0; i < lastIter; i++)
std::cout << newText[i]<span>;
</span>
std::cout << "\n"<span>;
</span>
return 0<span>;
</span>}</span>
Нет, в схеме масса (я насчитал 3) ошибки.
1) 2 безусловных ветвления из одного места не могут быть
2) ромбик как условный опоератор должен иметь 2 исзодящих стрелки
3) третий прямоугольник лишён исходящей стрелки, она должна вести в блок КОНЕЦ